[已解决]求助一个vba的问题

suye1010

1. Sub DelCol()
   
2. Dim i As Integer, j As Integer, m As Integer, Arr, B As Boolean
   
3. Arr = Range("K1").CurrentRegion
   
4. For m = UBound(Arr, 2) To 1 Step -1
   
5.     B=False
   
6.     For i = UBound(Arr) To 2 Step -1
   
7.         If B = True Then Exit For
   
8.         For j = i - 1 To 2 Step -1
   
9.             If (Arr(j, m)) = Arr(i, m) And Arr(j - 1, m) = Arr(i, m) And Arr(i, m) <> "" Then
   
10.                 Cells(1, m + 10).EntireColumn.Delete
    
11.                 B = True
    
12.                 Exit For
    
13.             End If
    
14.         Next j
    
15.     Next i
    
16. Next m
    
17. End Sub

复制代码

wssbtyy

谢谢老师的指点非常感谢二组代码都很有用昨天周一比较忙今天才上来

wssbtyy

suye1010 发表于 2016-6-20 10:48

谢谢老师十分感谢你写的最好了