
Ich habe eine Tabelle, die ich von einem anderen SIS heruntergeladen habe. Ich versuche, die Funktion zu verwenden COUNTA
. Sie zeigt an, dass alle Zellen etwas enthalten, obwohl in der Zelle nichts angezeigt wird. Ich kann Inhalte filtern und löschen, aber das ist aufgrund der Anzahl der Spalten zeitaufwändig. Woher weiß ich, was in der Zelle steht, damit ich alle gleichzeitig löschen kann?
Antwort1
Um Ihre Pseudo-Leerzeichen zu löschen, führen Sie dieses kurze Makro aus:
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