1 把你的新工作表移到最前面,在新工作表运行以下代码即可Sub 合并数据()K = Sheets.Count: For i = 2 To KSheets(i).Range("1" & ":" & Sheets(i).Range("A60000") _.End(xlUp).Row).Copy Range("A" & Range("A60000").End(xlUp).Row + 1)Next: End Sub
把每个工作表全选然后复制到新的工作里
ctrl+c