☰

セル内に何が入っているか確認して、すべてを同時にクリアするにはどうすればいいでしょうか?

tag-icon • tag-icon microsoft-excel microsoft-excel-2010
セル内に何が入っているか確認して、すべてを同時にクリアするにはどうすればいいでしょうか?

別の 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

関連情報