軟體: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的方式