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

Excel 是一个功能强大的工具，用于组织和分析数据。通常，数据分散在多个工作表或工作簿中，这使得创建全面的列表或摘要变得困难。在这种情况下，能够从多个工作表中的相同单元格创建列表可以节省大量时间。

本教程将指导您完成在 Excel 中从多个工作表中的相同单元格创建列表的过程。无论您处理的是少量工作表还是大型数据集，此方法都可以轻松地适应您的需求。在本教程结束时，您将更好地理解如何使用 Excel 的功能快速有效地从您的数据中创建全面的列表。那么，让我们开始吧！

从多个工作表中相同单元格创建列表

这里，我们将首先创建一个 VBA 模块，然后运行该模块来完成任务。让我们来看一个简单的过程，了解如何在 Excel 中从多个工作表中的相同单元格创建列表。

步骤 1

考虑任何包含多个工作表 Excel 工作簿。首先，右键单击工作表名称，然后选择“查看代码”以打开 VBA 应用程序。然后单击“插入”，然后选择“模块”。

右键单击 > 查看代码 > 插入 > 模块。

然后将下面提到的代码复制到文本框中，如下所示。

代码

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "Create a List"
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