,可以通过以下步骤实现:
Sub MergeWorksheets()
Dim ws As Worksheet
Dim combinedWs As Worksheet
Dim lastRow As Long
' 创建一个新的工作表,用于合并数据
Set combinedWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
combinedWs.Name = "合并工作表"
' 循环遍历所有源工作表
For Each ws In ThisWorkbook.Sheets
' 排除合并工作表本身
If ws.Name <> combinedWs.Name Then
' 找到源工作表的最后一行
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
' 将源工作表的数据复制到合并工作表
ws.Range("A1").Resize(lastRow, ws.UsedRange.Columns.Count).Copy combinedWs.Cells(combinedWs.Cells(combinedWs.Rows.Count, 1).End(xlUp).Row + 1, 1)
End If
Next ws
End Sub
以上代码将创建一个名为"合并工作表"的新工作表,并将其他所有工作表中的数据合并到该工作表中。每个源工作表的数据将从第一行开始复制到合并工作表的下一行。
这个方法适用于需要合并多个源工作表的情况,例如在一个Excel文件中有多个工作表,每个工作表都包含不同的数据,需要将它们合并到一个工作表中进行分析或报告。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云