我的代码是
t = wb.Sheets("Central_Scheme").UsedRange.Rows.Count
wb.Sheets("Central_Scheme").Range("A1:L" & t).Select
Selection.Copy
Workbooks("Central.xlsm").Activate
Sheets("Sheet3").Range("A1:L" & t).Paste
我收到错误" 对象不支持此属性/方法"。请帮我纠正代码
答案 0 :(得分:2)
使用此处列出的方法避免选择复制粘贴路由http://www.excelitems.com/2010/12/optimize-vba-code-for-faster-macros.html 工作?下去“避免不必要的复制/粘贴”。