软件:excel
版本:2010
如果用这方式写
For Each sh In Worksheets
Select Case sh.Name
Case "2016"
sh.[b25:o25].Copy
aa.Range("C1000").End(xlUp).Offset(1).Select
Selection.PasteSpecial xlPasteValues
sh.[b22:o22].Copy
aa.Range("C1000").End(xlUp).Offset(1).Select
Selection.PasteSpecial xlPasteValues
Case "2015"
sh.[b25:o25].Copy
aa.Range("C1000").End(xlUp).Offset(1).Select
Selection.PasteSpecial xlPasteValues
sh.[b22:o22].Copy
aa.Range("C1000").End(xlUp).Offset(1).Select
Selection.PasteSpecial xlPasteValue
End Select
Next
执行到aa.range("c1000")就卡住了
显示class range的方法失败
我是想要把copy的内容
依序贴到aa表格空白的那一列
可以帮我看吗 感谢

错误1004，class range，为range.select不在该工作表错误1004，class range，为range.select不在activate的工作表上假设变量aa为worksheet，请先aa.activate或aa.select另外2015,2016内执行一样的话可合并case 2015,2016的方式