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