如何在 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。

然后，所有工作表中指定单元格的值都会被复制到名为 KutoolsforExcel 的新工作表中。请参见截图：

该 VBA 将把列表填充到一个新的工作表中，列表中的值是静态的，不会随着原始值的变化而改变。

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

此方法将介绍 Kutools for Excel 的 自动递增工作表引用 工具，用于从多个工作表的相同单元格创建动态列表。

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

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

(1) 点击 填充顺序 框，并从下拉列表中选择一种填充类型。在我们的案例中，我们选择 先行后列；

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

(3) 点击 填充范围 按钮。

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

当原始值发生变化时，此指定列表中的相应值也会自动更改。

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