合并Excel多个工作表的方法
在处理大量数据时，我们经常需要将多个Excel工作表合并到一个工作表中，以便进行数据分析和处理。下面将介绍两种常用的方法来实现这一目的。
方法一：使用VBA宏
1. 打开Excel，按下“Alt+F11”组合键，打开VBA编辑器。
2. 在VBA编辑器中，选择“插入”菜单下的“模块”选项，创建一个新模块。
3. 在新模块中，输入以下代码：
```vba
Sub 合并工作表()
Dim ws As Worksheet
Dim wsMerged As Worksheet
Dim path As String
Dim filename As String
Dim lastrow As Long
Dim lastcolumn As Long
' 设置目标工作表
Set wsMerged = ThisWorkbook.Sheets("Sheet1")
' 获取当前工作簿路径和文件名
path = ThisWorkbook.Path & "\" & ThisWorkbook.Name
filename = ThisWorkbook.Name
' 删除目标工作表中不需要的数据
wsMerged.Cells.ClearContents
' 循环读取每个工作簿中的数据
For i = 1 To ThisWorkbook.Sheets.Count - 1
Set ws = ThisWorkbook.Sheets(i)
lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
lastcolumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
ws.Range(ws.Cells(1, 1), ws.Cells(lastrow, lastcolumn)).Copy _
destination:=wsMerged.Cells(wsMerged.Rows.Count, "A").End(xlUp).Offset(1, 0)
ws.Cells.ClearContents
Next i
' 删除重复行
lastrow = wsMerged.Cells(wsMerged.Rows.Count, "A").End(xlUp).Row
wsMerged.Range("A1").AutoFilter Field:=1, Criteria1:="<>"
wsMerged.AutoFilter.Range.Offset(1, 0).Delete Shift:=xlUp
wsMerged.Rows(1).Delete Shift:=xlUp
wsMerged.AutoFilterMode = False
' 保存合并后的工作簿
Set newwb = Workbooks.Add
ThisWorkbook.Sheets("Sheet1").Copy Before:=newwb.Sheets(1)
newwb.SaveAs path & "_merged.xlsx"
End Sub
```
4. 在VBA编辑器中按下F5或者点击运行按钮以执行上述宏，将多个工作表合并到目标工作表，并生成一个带有“_merged”后缀的新工作簿。
方法二：使用Python库pandas
如果你熟悉Python编程，也可以使用pandas库来合并Excel多个工作表。以下是使用pandas库的示例代码：
```python
import pandas as pd
import os
# 获取当前工作簿路径和文件名
path = os.path.dirname(os.path.abspath(__file__)) & "\\" & os.path.basename(os.path.abspath(__file__)).split('.')[0] + ".xlsx"
filename = os.path.basename(os.path.abspath(__file__)).split('.')[0] + ".xlsx"
# 读取每个工作表的数据到列表中
data_list = []
for i in range(1, len(pd.read_excel(path, sheet_name=None).keys()) + 1):
data = pd.read_excel(path, sheet_name=i)
data_list.append(data)
# 将多个工作表合并到一个数据帧中并保存为新的Excel文件
pd.concat(data_list, ignore_index=True).to_excel(path[:-5] + "_merged.xlsx", index=False)
```
这两种方法均可以快速合并Excel的多个工作表，并生成一个带有“_merged”后缀的新工作簿。选择适合你的方法并使用它们来完成你的数据处理任务。
