stillfish00

¦^´_ 1# luke
¤gªk·Ò¿û¡A°Ñ¦Ò¬Ý¬Ý
¨ä¹ê¸ò¦³¨S¦³¦X¨ÖÄæ¦n¹³¨SÔ£Ãö«Y

1. Sub test()
   
2.     Dim r As Long, i As Long, ar
   
3.     Dim rngDelete As Range
   
4.    
   
5.     With Sheets("sheet1")
   
6.         '¥ý¾ã²zA~E
   
7.         r = Application.WorksheetFunction.Max( _
   
8.             .Cells(.Rows.Count, "A").End(xlUp).Row, _
   
9.             .Cells(.Rows.Count, "B").End(xlUp).Row, _
   
10.             .Cells(.Rows.Count, "E").End(xlUp).Row)
    
11.         With .Range("A1:E1").Resize(r)
    
12.             ar = .Value
    
13.             For i = 1 To UBound(ar)
    
14.                 If ar(i, 1) = "" Then
    
15.                     If rngDelete Is Nothing Then
    
16.                         Set rngDelete = .Cells(i, 1).Resize(, .Columns.Count)
    
17.                     Else
    
18.                         Set rngDelete = Union(rngDelete, .Cells(i, 1).Resize(, .Columns.Count))
    
19.                     End If
    
20.                 End If
    
21.             Next
    
22.             If Not rngDelete Is Nothing Then
    
23.                 rngDelete.Delete Shift:=xlUp
    
24.                 Set rngDelete = Nothing
    
25.             End If
    
26.         End With
    
27.         '¦P¼Ë¨BÆJ¡A¾ã²zF~J
    
28.         r = Application.WorksheetFunction.Max( _
    
29.             .Cells(.Rows.Count, "F").End(xlUp).Row, _
    
30.             .Cells(.Rows.Count, "G").End(xlUp).Row, _
    
31.             .Cells(.Rows.Count, "J").End(xlUp).Row)
    
32.         With .Range("F1:J1").Resize(r)
    
33.             ar = .Value
    
34.             For i = 1 To UBound(ar)
    
35.                 If ar(i, 1) = "" Then
    
36.                     If rngDelete Is Nothing Then
    
37.                         Set rngDelete = .Cells(i, 1).Resize(, .Columns.Count)
    
38.                     Else
    
39.                         Set rngDelete = Union(rngDelete, .Cells(i, 1).Resize(, .Columns.Count))
    
40.                     End If
    
41.                 End If
    
42.             Next
    
43.             If Not rngDelete Is Nothing Then
    
44.                 rngDelete.Delete Shift:=xlUp
    
45.                 Set rngDelete = Nothing
    
46.             End If
    
47.         End With
    
48.     End With
    
49.    
    
50. End Sub

½Æ»s¥N½X