軟體:excel
版本:2010
For Each sh In Worksheets
I = I + 1
aa.Cells(I, 1) = tt & sh.Name
If sh.Name = "2016" Then
sh.[b25:o25].Copy
aa.Cells(I, 2).PasteSpecial xlPasteValues
sh.[b22:o22].Copy
aa.Cells(I + 1, 2).PasteSpecial xlPasteValues
ElseIf sh.Name = "2015" Then
sh.[b25:o25].Copy
aa.Cells(I, 2).PasteSpecial xlPasteValues
sh.[b22:o22].Copy
aa.Cells(I + 1, 2).PasteSpecial xlPasteValues
End If
Next
我想要做 若sheet.name為2016，就複製該表的b25:o25貼上到aa,複製b22:o22貼到下一欄
但不知道哪有問題 結果都只有出現b22:022
請幫我看看 謝謝

I累加1，複製上卻有二列，那如2015和2016分別前後讀到時應有被覆蓋資料的可能例如I=1，sh.name為2016，aa的b1貼上b25:o25的值aa的b2貼上b22:o22的值，迴圈下一筆為2015，I=2aa的b2則被覆蓋為b25:o25另外如判斷上2015和2016做的動作一致時，可用if 判斷1 or判斷2 then...end if，可省略原文elseif或是用select case sh.name...end selectcase expressionlist內的excpressionlist則為2015,2016

謝謝幫忙 我又自己亂試一篇 可以再幫我看嗎 ><