合并excel表格的宏命令问题
发布网友
共1个回答
热心网友
Sub 合并表格()
For i = 1 To Worksheets.Count - 1
m = Worksheets(i).Cells(65536, 1).End(xlUp).Row
Worksheets(i).Rows("1:" & m).Copy
n = Cells(65536, 1).End(xlUp).Row
If Range("a1") <> "" Then n = n + 1
Range("A" & n).Select
next i
End Sub
