第1个回答 推荐于2016-03-01
Sub Macro1()
A = InputBox("请输入需要删除包含的某特定字符", "输入框", v)
j = Trim(InputBox("请输入需要选择的列号", "输入框", 1))
For k = j To j
For i = 1 To 65535
Sheets(1).Cells(i, k).Select
If Len(Sheets(1).Cells(i, k).Value) = 0 Then
Exit For
End If
If InStr(Sheets(1).Cells(i, k).Value, A) <> 0 Then
B = i & ":" & i
Sheets(1).Rows(B).Select
Selection.Delete Shift:=xlUp
End If
Next i
Next k
Sheets(1).Cells(i, k).Select
MsgBox "删除操作完成!"
End Sub本回答被提问者采纳