轻松地将多个工作表/工作簿合并为一个工作表/工作簿

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

此VBA会将列表填充到新的工作表中，并且列表中的值是静态的，不会随原始值更改。

但是，有时您可能希望将列表填充到指定范围内，并要求列表值始终始终与指定单元格中的原始值相对应。 为了满足这些需求，您应该尝试以下方法。

此方法将介绍 Kutools for Excel“ 动态参考工作表 实用程序从多个工作表中的相同单元格创建动态列表。

第1步：选择要填充动态列表的范围，然后点击 库工具 > 更多 > 动态参考工作表.

第2步：在打开的“填写工作表引用”对话框中，

（1）点击 填写订单 框，然后从下拉列表中选择一种填充类型。 在我们的情况下，我们选择 垂直填充单元格;

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

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

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

当原始值更改时，此指定列表中的相应值将自动更改。

如何将同一单元格从不同的工作表自动填充到Excel中的工作表？