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 件のコメント:
コメントを投稿