如何在Excel中從多個工作表中相同單元格建立列表？

Excel 是一個功能強大的工具，用於組織和分析資料。通常，資料分散在多個工作表或工作簿中，這使得建立全面的列表或摘要變得困難。在這種情況下，能夠從多個工作表中的相同單元格建立列表可以節省大量時間。

本教程將指導您完成在 Excel 中從多個工作表中的相同單元格建立列表的過程。無論您處理的是少量工作表還是大型資料集，此方法都可以輕鬆地適應您的需求。在本教程結束時，您將更好地理解如何使用 Excel 的功能快速有效地從您的資料中建立全面的列表。那麼，讓我們開始吧！

從多個工作表中相同單元格建立列表

這裡，我們將首先建立一個 VBA 模組，然後執行該模組來完成任務。讓我們來看一個簡單的過程，瞭解如何在 Excel 中從多個工作表中的相同單元格建立列表。

步驟 1

考慮任何包含多個工作表 Excel 工作簿。首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟 VBA 應用程式。然後單擊“插入”，然後選擇“模組”。

右鍵單擊 > 檢視程式碼 > 插入 > 模組。

然後將下面提到的程式碼複製到文字框中，如下所示。

程式碼

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "Create a List"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub