查找列中关键字，然后删除该列!

Sub Find_Error()
  Dim rng As Range 'range=区域
  Dim what As String 'String=字符串?
  what = "Error"    ' 关键字 Error
  Do
    Set rng = ActiveSheet.UsedRange.Find(what)
    If rng Is Nothing Then
      Exit Do
    Else
       Columns(rng.Column).Delete
    End If
  Loop
End Sub