
我有一個從另一個 SIS 下載的電子表格。我正在嘗試使用 function 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