如何能快速将多个excel表内容复制到一个新的工作表内?

2024-11-01 18:50:19
推荐回答(3个)
回答(1):

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

回答(2):

把每个工作表全选然后复制到新的工作里

回答(3):

ctrl+c