软件: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

谢谢帮忙 我又自己乱试一篇 可以再帮我看吗 ><