GBKEE

¦^´_ 1# lionliu

1. L = 1
   
2.         Do Until Sheets(1).Cells(i, "d") = "" And Sheets(1).Cells(i, "b") <> Empty
   
3.             '³]©wªº§PÂ_¦¡¬°True®É"   Â÷¶}  Do Loop °j°é
   
4.             'ÅÜ¼Æ i ¦b°j°é¤¤¤@ª½¨SÅܰʪº,©Ò¥H¶i¤J°j°é«á¶]¤£§¹¤F.
   
5.             Sheets(2).Cells(k, "b").Offset(L - 1) = Sheets(1).Cells(k, "b").Offset(L)
   
6.             L = L + 1  '
   
7.         Loop

½Æ»s¥N½X

¥Î§R°£

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range, i As Integer
   
4.     With Sheets("PKG").UsedRange.Columns("a:g").Rows '³o½d³òªºRows(¦Cªºª«¥ó¶°¦X)
   
5.         For i = 2 To .Count                          '¥Ñ²Ä2¦C¶}©l
   
6.             If Application.CountA(.Rows(i)) = .Columns.Count Then   '¦C¤¤ªºÀx¦s®æ³£¦³¸ê®Æ            '
   
7.                 .Rows(i).Cells(1, 2) = .Rows(i + 1).Cells(1, 2)     '
   
8.                 If Rng Is Nothing Then                              '½d³ò«ü©w¨ìÅܼƤ¤
   
9.                     Set Rng = .Rows(i + 1)
   
10.                 Else
    
11.                     Set Rng = Union(Rng, .Rows(i + 1))              'Union ¤èªk: ¶Ç¦^¨â­Ó©Î¦h­Ó½d³òªº¦X¨Ö½d³ò¡C
    
12.                 End If
    
13.             End If
    
14.         Next
    
15.         If Not Rng Is Nothing Then Rng.Delete                        '§R°£
    
16.     End With
    
17. End Sub

½Æ»s¥N½X