동시에 모든 항목을 지울 수 있도록 셀에 무엇이 있는지 어떻게 알 수 있나요?

Question

다른 SIS에서 다운로드한 스프레드시트가 있습니다. 함수를 사용하려고 합니다 COUNTA. 셀에는 아무것도 표시되지 않지만 모든 셀에는 무언가가 있음을 보여줍니다. 내용을 필터링하고 지울 수 있지만 열 수 때문에 시간이 많이 걸립니다. 동시에 모든 항목을 지울 수 있도록 셀에 무엇이 있는지 어떻게 알 수 있나요?

Answer 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