如何在 Excel 中从多张工作表的相同单元格创建列表?

ms excelmicrosoft technologiescomputers更新于 2024/8/29 11:24:17

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