GBKEE

¦^´_ 1# yurckr

1. Sub Ex()
   
2.     Dim i, Ar(1 To 5)
   
3.     With Sheets("¤u§@ªí1")
   
4.         For i = 8 To .Range("b" & Rows.Count).End(xlUp).Row Step 2
   
5.             Ar(1) = .Cells(i, "A")
   
6.             Ar(2) = .Cells(i, "B")
   
7.             Ar(3) = .Cells(i, "E") & .Cells(i + 1, "E")
   
8.             Ar(4) = .Cells(i, "F") & .Cells(i + 1, "F")
   
9.             Ar(5) = .Cells(i, "G") & .Cells(i + 1, "G")
   
10.             Sheets("¤u§@ªí2").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, 5) = Ar
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X