Hsieh

¦^´_ 1# hugh0620


    §Aªº°j°éÅ޿観ÂI©Ç²§¡A³o¼Ëªº§R°£¦CÀ³¸Ó¬O¤£§¹¾ãªº
¤W¶Ç±zªºÀɮסA¸ÑÄÀ§A©Ò¿×¦³ºÃ°Ýªº¸ê®Æ±ø¥ó

Hsieh

¦^´_ 11# hugh0620
¥H§A­ìµ{¦¡½Xªº§R°£°Ê§@À³¸Ó­n¥Ñ«á©¹«e§R°£

1. Private Sub CommandButton1_Click()  '¶×¥X»P§R°£
   
2. Dim A As Range
   
3. With Sheet1
   
4. r = .[L65536].End(xlUp).Row
   
5. Do Until r < 7
   
6.    If .Cells(r, 6) <> "" Then
   
7.       .Rows(r).Copy Sheet2.Cells(k + 7, 1) '¶×¥X
   
8.         .Rows(r).Delete xlShiftUp '§R°£
   
9.        k = k + 1
   
10.    End If
    
11.    r = r - 1
    
12. Loop
    
13. End With
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 17# hugh0620

1. Private Sub CommandButton1_Click()  '§R°£
   
2. Dim A As Range, Rng As Range
   
3. If Application.CountA([F6:F65536]) > 0 Then
   
4. For Each A In Range("F6:F65536").SpecialCells(xlCellTypeConstants)
   
5.    If A.Offset(, 9) = 0 Or A.Offset(, 83) = 0 Then
   
6.       If Rng Is Nothing Then
   
7.         Set Rng = A
   
8.         Else
   
9.         Set Rng = Union(Rng, A)
   
10.       End If
    
11.     End If
    
12. Next
    
13. End If
    
14. Rng.EntireRow.Delete
    
15. End Sub

½Æ»s¥N½X