Hsieh

¦^´_ 1# ayubbs

1. Sub ex()
   
2. If Application.CountA([C:C]) = 0 Then Exit Sub 'CÄæ¨S¦³¥ô¦ó¸ê®Æ´Nµ²§ôµ{§Ç
   
3. For Each A In Range("C:C").SpecialCells(xlCellTypeConstants) '¹M¾úCÄæ©Ò¦³¸ê®Æ
   
4.   If A.Offset(, -2) = "" Then A.Clear 'AÄ欰ªÅ¥Õ´N²M°£CÄæ
   
5. Next
   
6. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# ayubbs

1. Sub ex()
   
2. Dim A as Range
   
3. If Application.CountA([C:C]) = 0 Then Exit Sub 'CÄæ¨S¦³¥ô¦ó¸ê®Æ´Nµ²§ôµ{§Ç
   
4. For Each A In Range("C:C").SpecialCells(xlCellTypeConstants) '¹M¾úCÄæ©Ò¦³¸ê®Æ
   
5.   If A.Offset(, -2) = "" Then A.Clear 'AÄ欰ªÅ¥Õ´N²M°£CÄæ
   
6. Next
   
7. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 5# ayubbs

1. Sub ex()
   
2. Dim A As Range, Rng As Range
   
3. If Application.CountA([C:C]) = 0 Then Exit Sub 'CÄæ¨S¦³¥ô¦ó¸ê®Æ´Nµ²§ôµ{§Ç
   
4. For Each A In Range("C:C").SpecialCells(xlCellTypeConstants) '¹M¾úCÄæ©Ò¦³¸ê®Æ
   
5.   If A.Offset(, -2) = "" Then
   
6.     'A.Clear 'AÄ欰ªÅ¥Õ´N²M°£CÄæ
   
7.     If Rng Is Nothing Then Set Rng = A.EntireRow Else Set Rng = Union(Rng, A.EntireRow)
   
8.   End If
   
9. Next
   
10. Rng.Delete
    
11. End Sub

½Æ»s¥N½X