如何在 Excel 中引用多個工作表中的相同單元格？

假設您有一個包含多個工作表的工作簿，現在您想從多個工作表中提取相同單元格的數據到一個主工作表中。例如，將 Sheet1、Sheet2、Sheet3、Sheet4… 的 B8 單元格提取到主工作表中，如下圖所示。您如何快速輕鬆地在 Excel 中解決這個問題呢？

使用公式將多個工作表中的相同單元格引用到一個主工作表中

使用 VBA 代碼將多個工作表中的相同單元格引用到一個主工作表中

使用驚人的功能將多個工作表中的相同單元格引用到一個主工作表中

使用公式將多個工作表中的相同單元格引用到一個主工作表中

如果您的工作表名稱是默認的工作表名稱，例如 Sheet1、Sheet2、Sheet3...，您可以使用公式在 Excel 中快速處理此任務。

1. 首先，您應該創建一組輔助數字，請輸入 1、2、3、4... 序列號，這些數字表示您需要引用的工作表，請參見截圖：

2. 然後，在您要提取數據的單元格中輸入以下公式，然後向下拖動填充柄以應用該公式到其他單元格，這樣所有來自多個工作表的相同單元格值都已提取出來，請參見截圖：

注意：在上述公式中，E2 是您在步驟 1 中輸入的輔助數字，而 B8 是您要提取的單元格引用。此公式僅適用於工作表名稱為 Sheet1、Sheet2、Sheet3... 的情況。

使用 VBA 代碼將多個工作表中的相同單元格引用到一個主工作表中

如果有幾十個工作表，其工作表名稱不是 Sheet1、Sheet2 等，而是各種內容，在這種情況下，以下 VBA 代碼可以幫助您一次性將多個工作表中的相同單元格引用填入一個工作表中。

1. 在主工作表中，點擊 B8 單元格，這是您要從其他工作表中提取的單元格。

2. 按住 ALT + F11 鍵，打開 Microsoft Visual Basic for Applications 窗口。

3. 點擊 插入 > 模塊，並在模塊窗口中粘貼以下代碼。

VBA 代碼：引用多個工作表中的相同單元格

Sub AutoFillSheetNames()
'Update by Extendoffice
Dim ActRng As Range
Dim ActWsName As String
Dim ActAddress As String
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set ActRng = Application.ActiveCell
ActWsName = Application.ActiveSheet.Name
ActAddress = ActRng.Address(False, False)
Application.ScreenUpdating = False
xIndex = 0
For Each Ws In Application.Worksheets
If Ws.Name <> ActWsName Then
ActRng.Offset(xIndex, 0).Value = "='" & Ws.Name & "'!" & ActAddress
xIndex = xIndex + 1
End If
Next
Application.ScreenUpdating = True
End Sub

4. 然後按 F5 鍵運行此代碼，所有其他工作表中 B8 單元格的值都已提取到主工作表中。請參見截圖：

注意：此 VBA 代碼適用於您點擊的單元格。例如，如果您在指定工作表中點擊 A1 單元格，則所有其他工作表中 A1 單元格的值將被填入此工作表中。

使用驚人的功能將多個工作表中的相同單元格引用到一個主工作表中

如果您不熟悉 VBA 代碼，這裡我可以介紹給您一個有用的工具 - Kutools for Excel，使用其 自動遞增工作表引用 功能，您可以輕鬆地從多個工作表中填入單元格引用。

安裝 Kutools for Excel 後，請執行以下操作：

1. 點擊主工作表中的 B8 單元格，這是你想要從其他工作表中提取的單元格。

2. 然後點擊 Kutools > 更多 > 自動遞增工作表引用，請參見截圖：

3. 在填充工作表引用對話框中，選擇 先行後列 從填充順序中，然後點擊公式文本框旁的小鎖定符號，灰色鎖定將變為黃色鎖定，這意味著公式和單元格引用已被鎖定，然後您可以點擊任何單元格以提取其他工作表中的 B8 單元格引用，在本例中我將點擊 B2 單元格。然後，勾選您希望提取單元格引用的工作表。請參見截圖：

注意：如果您不解鎖這個小鎖定符號，您所點擊的單元格引用將隨著所選單元格改變。

4. 然後點擊 填充範圍 按鈕，其他工作表中 B8 單元格的值將垂直列出在主工作表中，然後關閉此對話框。請參見截圖：

立即點擊下載 Kutools for Excel 並免費試用！

更多文章：