如何在Excel中的多個工作表中的相同單元格中創建列表

發布:未知文本批量工具

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

假設我們將每個月度銷售表部署在一個單獨的工作表中，如下圖所示，所有銷售表的布局都相同。現在，我們要根據多個工作表中的所有總和值（單元格E6）創建一個列表。如何完成？如果要根據每個工作表的總和創建一個動態列表怎么辦？有兩種方法供您選擇：

使用VBA在多個工作表的同一單元格中創建列表

使用跨多個工作表的相同單元格創建動態列表 Kutools for Excel

輕松地將多個工作表/工作簿合并為一個工作表/工作簿

將來自不同工作簿的數十張工作表合并到一張工作表中可能會很乏味。但是隨著 Kutools for Excel“ 合并（工作表和工作簿） 實用程序，只需單擊幾下就可以完成！

全功能 30-天！使用VBA在多個工作表的同一單元格中創建列表

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

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

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

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

Sub CreateList()Dim xAddWs As WorksheetDim xWs As WorksheetDim RngAddress As StringxTitleId = "KutoolsforExcel"RngAddress = Application.ActiveCell.AddressSet xAddWs = Application.ActiveWorkbook.Sheets.AddxAddWs.Name = xTitleIdi = 1For Each xWs In Application.ActiveWorkbook.WorksheetsIf xWs.Name <> xTitleId ThenxAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Valuei = i + 1End IfNextEnd SubCopy

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

然后將所有工作表上指定單元格中的所有值復制到名為 Kutools對于 Excel。看截圖：

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

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

使用跨多個工作表的相同單元格創建動態列表 Kutools for Excel

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

Kutools for Excel - 包括 300 多個方便的 Excel 工具。全功能 立即！

第1步：選擇要填充動態列表的范圍，然后點擊 Kutools > 更多 > 動態參考工作表.

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

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

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

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