Excelで一瞬！空白行を自動で削除するExcelVBAコード【コピペOK】

この記事はこんな人におすすめです！

Excelの空白行を手動で消していて時間がかかっている人
Excel初心者だがVBAに興味がある人
実務でデータ整理が多い人（経理・事務職など）

Excelのデータ整理で「空白行」が邪魔になること、ありませんか？

いちいち手で消していたら時間がかかって大変ですよね。
今回は、「ボタン1つで空白行を削除するVBAコード」をご紹介します。

誰でもすぐに使えるように、コピペでそのまま動くコードを載せてみました。

Sub DeleteBlankRows()
    Dim lastRow As Long
    Dim i As Long

    ' 最終行の取得
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    ' 下から上に向かって空白行を削除
    For i = lastRow To 1 Step -1
        If WorksheetFunction.CountA(Rows(i)) = 0 Then
            Rows(i).Delete
        End If
    Next i

    MsgBox "空白行を削除しました！"
End Sub

空白行の削除はよくある業務ですが、VBAを使えば一瞬です。
他にも、並べ替えや重複削除などのコードも今後紹介していきます！

「こんなコードが欲しい！」などあれば、ぜひコメントください！！