ctrl+f弹出查找框——输入查找的内容——查找全部——选中查找到的全部内容——在查找到的高亮显示的内容处右击——删除——弹框确定删除，即可，如图：
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-01-16
CTRL+F 输入查找内容， 查找全部 CTRL+A 选中全部被查找的结果 删除即可！
当然还可以做别的操作，如删除行，删除列 输入公式等。
当然还可以做别的操作，如删除行，删除列 输入公式等。
第2个回答 2011-01-15
利用“编辑”菜单下的“替换”命令，“查找”内容中输入要查找的内容，单击“查找全部”，然后按下CTRL+A组合键全选，再按DELETE键即可删除所有找到内容。
第3个回答 2011-01-15
简单一点就是用筛选出你不要的内容，然后按 Delete键就可以了。
第4个回答 2011-01-15
用代码搞定
Sub test()
Dim d As Object, arr, brr()
Set d = CreateObject("scripting.dictionary")
arr = Range("A3:D3")
For i = 1 To UBound(arr, 2)
d(arr(1, i)) = ""
Next i
arr = Range("a2:h2")
For i = 1 To UBound(arr, 2)
If Not d.exists(arr(1, i)) Then
h = h + 1
ReDim Preserve brr(1 To h)
brr(h) = arr(1, i)
End If
Next i
[a5].Resize(1, UBound(brr)) = brr
Set d = Nothing
End Sub本回答被提问者采纳
Sub test()
Dim d As Object, arr, brr()
Set d = CreateObject("scripting.dictionary")
arr = Range("A3:D3")
For i = 1 To UBound(arr, 2)
d(arr(1, i)) = ""
Next i
arr = Range("a2:h2")
For i = 1 To UBound(arr, 2)
If Not d.exists(arr(1, i)) Then
h = h + 1
ReDim Preserve brr(1 To h)
brr(h) = arr(1, i)
End If
Next i
[a5].Resize(1, UBound(brr)) = brr
Set d = Nothing
End Sub本回答被提问者采纳
相似回答