Dim i As Integer
Application.ScreenUpdating = False
For i = Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
Select Case Cells(2, i).Value
Case "dd", "kk", "aa", "hh" 这行代码下面是不是省略什么代码?
Case Else
Columns(i).Delete
End Select
Next
Application.ScreenUpdating = True