![我怎样才能知道单元格中有什么,以便我可以同时清除所有单元格?](https://linux22.com/image/1531034/%E6%88%91%E6%80%8E%E6%A0%B7%E6%89%8D%E8%83%BD%E7%9F%A5%E9%81%93%E5%8D%95%E5%85%83%E6%A0%BC%E4%B8%AD%E6%9C%89%E4%BB%80%E4%B9%88%EF%BC%8C%E4%BB%A5%E4%BE%BF%E6%88%91%E5%8F%AF%E4%BB%A5%E5%90%8C%E6%97%B6%E6%B8%85%E9%99%A4%E6%89%80%E6%9C%89%E5%8D%95%E5%85%83%E6%A0%BC%EF%BC%9F.png)
我有一个从另一个 SIS 下载的电子表格。我正在尝试使用函数COUNTA
。它显示所有单元格中都有内容,即使单元格中没有显示任何内容。我可以过滤和清除内容,但由于列数太多,这很耗时。我如何知道单元格中的内容,以便我可以同时清除所有单元格?
答案1
要清除伪空,请运行这个简短的宏:
Sub ClearPseudoEmpties()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If r.Value = "" And Application.WorksheetFunction.CountA(r) <> 0 Then
r.ClearContents
End If
Next r
End Sub