輕鬆地將多個工作表/工作簿合併為一個工作表/工作簿

使用以下VBA代碼，您可以輕鬆地從多個工作表中的指定單元格創建列表。 您可以執行以下操作：

步驟1：選擇要從中創建列表的指定單元格。 在本例中，我們選擇單元格E6。

步驟2：按 其他 + F11 同時打開“ Microsoft Visual Basic for Applications”窗口，單擊 插入 > 模塊，然後將以下代碼粘貼到模塊窗口中。

VBA：從多個工作表中的相同單元格創建列表

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
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

步驟3：按 F5 鍵或單擊 跑 按鈕以運行此VBA。

然後，將所有工作表上指定單元格中的所有值複製到名為KutoolsforExcel的新工作表中。 查看屏幕截圖：

此VBA會將列表填充到新的工作表中，並且列表中的值是靜態的，不會隨原始值更改。

但是，有時您可能希望將列表填充到指定範圍內，並要求列表值始終始終與指定單元格中的原始值相對應。 為了滿足這些需求，您應該嘗試以下方法。

此方法將介紹 Excel的Kutools“ 動態參考工作表 實用程序從多個工作表中的相同單元格創建動態列表。

第1步：選擇要填充動態列表的範圍，然後點擊 庫工具 > 更多 > 動態參考工作表.

第2步：在打開的“填寫工作表引用”對話框中，

（1）點擊 填寫訂單 框，然後從下拉列表中選擇一種填充類型。 在我們的情況下，我們選擇 垂直填充單元格;

（2）在 填寫公式 框中，指定要從中創建動態列表的單元格地址，然後單擊 鎖 按鍵  鎖定公式。

（3）點擊 填充範圍 按鈕。

現在，您將看到所有工作表中指定單元格中的值均已填充到指定範圍內，如下圖所示：

當原始值更改時，此指定列表中的相應值將自動更改。

如何將同一單元格從不同的工作表自動填充到Excel中的工作表？