如何将多张excel表格合成一张

将多张Excel表格合成一张可以通过以下几种方法实现：

方法一：使用Excel的“合并工作簿”功能

1. 打开Excel，创建一个新的工作簿。

2. 点击“文件”菜单，选择“打开”，然后选择第一个Excel文件。

3. 在打开的Excel文件中，点击“文件”菜单，选择“另存为”，将文件保存到新工作簿中。

4. 重复步骤2和3，将所有需要合并的Excel文件都添加到新工作簿中。

5. 保存合并后的工作簿。

方法二：使用VBA宏

1. 打开Excel，按下 `Alt + F11` 打开VBA编辑器。

2. 在VBA编辑器中，插入一个新的模块（右键点击VBAProject，选择“插入” -> “模块”）。

3. 在模块中粘贴以下代码：

```vba

Sub 合并工作簿()

Dim wb As Workbook

Dim ws As Worksheet

Dim i As Integer

Dim sourcePath As String

Dim targetPath As String

sourcePath = "C:路径源文件" '源文件所在文件夹路径

targetPath = "C:路径目标文件.xlsx" '合并后的文件路径

' 打开目标工作簿

Set wb = Workbooks.Open(targetPath)

Set ws = wb.Sheets(1)

' 遍历源文件夹中的所有Excel文件

i = 1

For Each fsoFile In Dir(sourcePath & ".xlsx")

' 打开源文件

Set wbSource = Workbooks.Open(sourcePath & fsoFile)

' 遍历源工作簿中的所有工作表

For Each wsSource In wbSource.Sheets

' 将源工作表复制到目标工作簿

wsSource.Copy After:=ws

Next wsSource

' 关闭源工作簿

wbSource.Close SaveChanges:=False

Next fsoFile

' 保存并关闭目标工作簿

wb.Save

wb.Close

End Sub

```

4. 修改代码中的 `sourcePath` 和 `targetPath` 变量，设置源文件文件夹路径和目标文件路径。

5. 运行宏（按下 `F5` 或者在VBA编辑器中选择“运行” -> “运行子程序/用户定义的函数”）。

方法三：使用在线工具

1. 在网络上搜索“Excel合并工具”或“Excel合并工作簿”等关键词。

2. 选择一个可靠的在线工具，上传需要合并的Excel文件。

3. 按照工具的指示合并文件。

以上方法可以根据你的具体需求和环境选择使用。希望对你有所帮助！