多个工作表合而为一
多个工作表合而为一Sub 合并()
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 3 '此处的3为你工作表总数
n = Sheets(m)..End(xlUp).Row
o = Sheets(1)..End(xlUp).Row
Sheets(m).Select
Range("a1", "z" & n).Select
Range("a" & n).Activate
Selection.Copy
Sheets(1).Select
Range("a" & o + 1).Select
ActiveSheet.Paste
Next
End Sub
页:
[1]