如何将具有相同名称的工作表合并成一个工作表？

在Excel中，当我们需要处理大量数据时，通常会将数据分散放在不同的工作表中，这样有助于我们找到所需的数据。然而，有时我们需要将具有相同名称的工作表合并成一个工作表以便更好地处理数据。

方法1：手动合并

手动合并工作表并不是很高效，但它是最简单的方法之一。

步骤如下：

打开所有工作表。
选中要合并的第一个工作表。
选中所有数据并复制它们。
切换到要合并的工作表，粘贴数据到该表中。
重复步骤2-4，直到将所有数据复制到一个工作表中为止。

示例代码（Excel公式）：

=Sheet1!A1

方法2：使用VBA宏

例如，我们要将所有名为“Sheet1”的工作表合并为一个表：

步骤如下：

打开一个新的Excel工作簿，并按Alt+F11打开VBA编辑器。
单击左侧的Insert > Module，然后将以下代码复制粘贴到新填充的代码窗口中：

Sub CombineSheetsWithSameName()
    Dim sht As Worksheet
    Dim DestSht As Worksheet

    ' Create a new worksheet for the combined data.
    Set DestSht = ThisWorkbook.Worksheets.Add

    ' Loop through all worksheets.
    For Each sht In ThisWorkbook.Worksheets
        ' If the worksheet has the same name as the first worksheet...
        If sht.Name = "Sheet1" Then
            ' Copy all data to the new worksheet.
            sht.UsedRange.Copy DestSht.Range("A1")
        End If
    Next sht
End Sub

单击左侧的工具栏上的Run打开宏窗口。
单击当前宏以运行它。

示例代码：

Sub testModule()
MsgBox (“Hello, World!”)
End Sub

方法3：使用Power Query

Power Query是Excel的一个强大的数据连接和转换工具，它可以用于合并多个工作表。

步骤如下：

打开一个新的Excel工作簿，并按Alt+F11打开VBA编辑器。
单击左侧的Insert > Module，然后将以下代码复制粘贴到新填充的代码窗口中：

let
    Source = Table.Combine({Sheet1, Sheet2, Sheet3}),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}})
in
    #"Changed Type"

单击左侧的工具栏上的Run打开宏窗口。
单击当前宏以运行它。

示例代码（Power Query）：

let
Source = Table.Combine({
Excel.Workbook(File.Contents(“C:\Data.xlsx”), null, true){[Name=”Sheet1″]}[Data],
Excel.Workbook(File.Contents(“C:\Data.xlsx”), null, true){[Name=”Sheet2″]}[Data],
Excel.Workbook(File.Contents(“C:\Data.xlsx”), null, true){[Name=”Sheet3″]}[Data]
}),
#”Changed Type” = Table.TransformColumnTypes(Source,{{“Column1”, type text}, {“Column2”, type text}, {“Column3″, type text}})
in
#”Changed Type”