[已解决]求助：把每一组第一行提取出来，放到R列

清华

求助：把每一组第一行提取出来，放到R列

最佳答案

月排行榜 / 总排行榜

搁浅2008

2012-5-3 09:15

1. Sub aa()
   
2.     Dim i As Long
   
3.     For i = 2 To Range("A65536").End(xlUp).Row
   
4.         If InStr(cells(i - 1, 1), "期") Then
   
5.             Range("R65536").End(xlUp).Offset(1, 0).resize(12, 1) = application.WorksheetFunction.Transpose(cells(i, 2).resize(1, 12))
   
6.         End If
   
7.     Next i
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

搁浅2008

1. Sub aa()
   
2.     Dim i As Long
   
3.     For i = 2 To Range("A65536").End(xlUp).Row
   
4.         If InStr(cells(i - 1, 1), "期") Then
   
5.             Range("R65536").End(xlUp).Offset(1, 0).resize(12, 1) = application.WorksheetFunction.Transpose(cells(i, 2).resize(1, 12))
   
6.         End If
   
7.     Next i
   
8. End Sub
   

复制代码

清华

搁浅2008 发表于 2012-5-3 09:15

很棒　谢谢　祝你发财

ppp710715