跳到主要內容

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

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

doc創建列表多張紙1

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

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

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

將來自不同工作簿的數十張表合併為一張表可能很麻煩。 但是使用Kutools for Excel的 合併(工作表和工作簿) 實用程序,只需單擊幾下就可以完成!

廣告組合床單書1


使用以下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的新工作表中。 查看屏幕截圖:

doc創建列表多張紙2

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

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


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

Excel的Kutools - 包含 300 多個 Excel 基本工具。 享受全功能 30 天免費試用,無需信用卡! 現在下載!

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

doc動態參考工作表1

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

doc創建列表多張紙5

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

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

(3)點擊 填充範圍 按鈕。

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

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

Excel的Kutools - 使用 300 多種基本工具增強 Excel 功能。 享受全功能 30 天免費試用,無需信用卡! 立即行動吧!


Excel的Kutools:超過 300 個方便的工具觸手可及! 立即開始 30 天免費試用,沒有任何功能限制。 現在就下載!

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
This comment was minimized by the moderator on the site
Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input... One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations