素人のVBA備忘録

客先や社内での研修用のVBAのコードを書き留めています。初心者にも分かりやすく書いているつもり?です。参考になれば嬉しいです。

空白行を削除するVBA

空白行を削除するコードはこちら

Sub Macro210301_03()
Dim i As Long, LastRow As Long
'最終セルの行番号の変数指定
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    '最終セルの行から2行目までの範囲指定
    For i = LastRow To 2 Step -1
        'C列が空白だったら
        If Cells(i, 3) = "" Then
            '列全体を削除する
            Cells(i, 3).EntireRow.Delete
        End If
    Next i
End Sub

色分けすると…

f:id:gray-to:20210302085202p:plain

こんな感じで動きます

f:id:gray-to:20210302000330g:plain
いかがでしょうか?
コピペしてお使いください。
やればできる!
VBAを活用してどんどん楽しましょう(^^)v