如何在 Excel 中从多个工作表的相同单元格快速创建统一列表？

使用以下 VBA 代码，您可轻松从多个工作表的指定单元格中生成一个列表。操作步骤如下：

步骤 1：选择您希望用于创建列表的指定单元格。在本例中，我们选择单元格 E6.

步骤 2：同时按下 Alt+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。

随后，所有工作表中指定单元格的值将被复制到一个名为“Kutools for Excel”的新工作表中。如下图所示：

此 VBA 会将列表以静态值的形式填充到一个新工作表中，不会随原始数据的变化而自动更新。

然而，有时您可能希望将列表填充到指定区域，并确保列表中的值始终与指定单元格中的原始值保持同步。为满足这些需求，您可以尝试以下方法。

本方法将介绍 Kutools for Excel 的自动递增工作表引用功能，助您轻松从多个工作表的相同单元格创建动态列表。

步骤 1：选择要填充动态列表的区域，然后单击 Kutools > 更多 > 自动递增工作表引用。

步骤 2：在打开的填充工作表引用对话框中，

（1）单击填充顺序框，从下拉列表中选择一种填充类型。本例中，我们选择先行后列；

（2）在填充公式框中指定要从中创建动态列表的单元格地址，然后单击锁定按钮以锁定公式。

（3）单击填充范围按钮。

现在，您将看到所有工作表中指定单元格的值已按如下截图所示填充到限定区域中：

当原始值发生变化时，指定列表中的对应值将自动更新。

如何在 Excel 中将不同工作表中相同单元格的数据自动填充到一个工作表？