GBKEE

¦^´_ 1# sandra_wang

1. Sub Ex()
   
2.     Dim Place%, Place_Row%, i%
   
3.     Place = 214
   
4.     Place_Row = 10
   
5.     With ActiveSheet
   
6.         If .Cells(Rows.Count, Place).End(xlUp).row >= Place_Row Then
   
7.             .Range(.Cells(Place_Row, Place), .Cells(Rows.Count, Place).End(xlUp)).Resize(, 6).Clear
   
8.         End If
   
9.         For i = 179 To 179 + (7 * 4) Step 7
   
10.             .Range(.Cells(Place_Row, i), .Cells(Rows.Count, i).End(xlUp)).Resize(, 6).Copy .Cells(Rows.Count, Place).End(xlUp).Cells(2, 1)
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

oobird

Sub yy()
Cells(9, 179).CurrentRegion.Copy Cells(9, 214)
For i = 186 To 212 Step 8
Cells(9, i).CurrentRegion.Offset(1, 0).Copy Cells(9, 214).End(4)(2, 1)
Next
End Sub