如何在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并免费试用！

更多文章：