Sub 复制工作表内容()
Windows("复制工作表内容.xls").Activate
With Worksheets(1)
.Range(.Cells(4, 0), .Cells(UseRange.rows.count, 0)).copy ←应用程序定义或对象定义错误
End With
With Worksheets(1)
.Range(.cells(4,0)).select
ActiveSheet.Paste
End With
End Sub
【不用cells取未知,就没有问题,一旦用cells,不论参数是什么格式都不行,求指教!】
【即使取cells的address属性,依然1004错误。】
【谢谢你的回答,修改之后,提示错误为,需要对象】
本回答被提问者采纳