2011年2月1日火曜日

EXCEL 2003/2007 某コラムが空の場合、行削除

Sub delEmptyRow()
    Dim c As Range

    For Each c In Range("A1:A500")
        If Trim(c.Value) = "" Then
            'Debug.Print c.Row
            c.Value = "#delete#"
            'そしてフィルターで"#delete#"の行だけ表示して、行ごと削除する
        End If
    Next c
End Sub
マクロなので、すべてのバージョン通用だと思う。
またloopが混乱しないようにrow.deleteは使わず、Excelのフィルターで削除。

0 件のコメント:

コメントを投稿