复制各工作表的值到第一个工作表中

kenleong

请各位高手帮忙
我有一个工作簿入面有101工作表，请问如何把每页工作表A列最后的数值复制到第一个工作表B1,其余的工作表则如此类推粘在B2,B3....直至最后的工作表A列的数值粘在B100。

shuidisyy

1. Sub test()
   
2.     Dim i As Integer, sh As Worksheet, irow As Integer
   
3.     For i = 2 To Worksheets.Count
   
4.         Set sh = Worksheets(i)
   
5.         irow = sh.Range("a" & Rows.Count).End(xlUp).Row
   
6.         Worksheets(1).Range("b" & i - 1).Value = sh.Range("a" & irow).Value
   
7.     Next i
   
8. End Sub

复制代码

kenleong

謝謝