excel VBA编程错误“运行时错误“1004”应用程序定义或对象定义错误”

将Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) 修改成： Wb.Sheets(G).UsedRange.Copy Windows("数据合并.xlsm").Activate Cells(Range("A65536").End(xlUp).Row + 1, 1).Select ActiveSheet.Paste 即可。