Como posso saber o que está na célula para poder limpar todos eles ao mesmo tempo?

Question

Tenho uma planilha que baixei de outro SIS. Estou tentando usar a função COUNTA. Está mostrando que todas as células contêm algo, mesmo que nada apareça na célula. Posso filtrar e limpar o conteúdo, mas isso consome tempo devido ao número de colunas. Como posso saber o que está na célula para poder limpar todos eles ao mesmo tempo?

Answer 1

Para limpar seus pseudo-vazios, execute esta pequena macro:

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