Hsieh

¦^´_ 5# billchenfantasy

1. Sub ex()
   
2. Dim Rng As Range, C As Range
   
3. ar = Array("PLAN_NO", "PlAN_DAT")
   
4. For Each C In Rows(1).SpecialCells(xlCellTypeConstants)
   
5. n = 0
   
6.    For Each a In ar
   
7.      If InStr(UCase(C), UCase(a)) > 0 Then
   
8.      n = n + 1
   
9.      End If
   
10.      If n = 0 Then
    
11.         If Rng Is Nothing Then
    
12.            Set Rng = C
    
13.            Else
    
14.            Set Rng = Union(Rng, C)
    
15.         End If
    
16.      End If
    
17.   Next
    
18. Next
    
19. Rng.EntireColumn.Delete
    
20. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 8# billchenfantasy
²Ä17¦æªºNext­n©¹«e©ñ

1. Sub ex()
   
2. 
   
3. Dim Rng As Range, C As Range
   
4. ar = Array("PLAN_NO", "PLAN_DAT")
   
5. For Each C In Rows(1).SpecialCells(xlCellTypeConstants)
   
6. n = 0
   
7.    For Each a In ar
   
8.      If InStr(UCase(C), UCase(a)) > 0 Then
   
9.      n = n + 1
   
10.      End If
    
11.    Next
    
12.      If n = 0 Then
    
13.         If Rng Is Nothing Then
    
14.            Set Rng = C
    
15.            Else
    
16.            Set Rng = Union(Rng, C)
    
17.         End If
    
18.      End If
    
19. Next
    
20. Rng.EntireColumn.Delete
    
21. End Sub

½Æ»s¥N½X