excel vba 如何将各工作表中的最后一行复制到新建的表中

Question

各工作表格式相同
不是这个原因，调试到Range("A" & I).Select时，就出现上述问题

Answer 1

你的 A列是不是没有数据？，那列有改一下Range("A65535").End(xlUp).EntireRow.Copy
中的("A65535")，例如C列有，改成("C65535")，

有事Hi我，或者[email protected]

Sub Macro1()
Dim zROW As Integer, I As Integer
Sheets.Add After:=Sheets(Sheets.Count)
For I = 1 To Sheets.Count - 1
Sheets(I).Select
Range("A65535").End(xlUp).EntireRow.Copy
Sheets(Sheets.Count).Select
Range("A" & I).Select
ActiveSheet.Paste
Next
End Sub

Answer 2

把你的表贴上来，看到格式给你代码

Answer 3

先新建一个表
Sub test()
For i = 1 To Sheets.Count - 1
Sheets(i).Range("a65536").End(xlUp).EntireRow.Copy Sheets(Sheets.Count).Range("a" & i)
Next
End Sub