Excel ワークシートから空の行を削除する

Sub DeleteEmptyRows()
    SelectedRange = Selection.Rows.Count
    ActiveCell.Offset(0, 0).Select
    For i = 1 To SelectedRange
        If ActiveCell.Value = "" Then
            Selection.EntireRow.Delete
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Next i
End Sub

セル列を選択してからこのマクロを実行すると、選択した範囲の列から、空のセルがある行が削除されます。

文書情報

記事タイトル: Excel ワークシートから空の行を削除する
作成日: 2021.01.07
更新日: 2026.08.30
Source URL: https://papanda925.com/?p=1015

ライセンス: 本記事のうち、当サイトが権利を有する本文・自作図表は、特記なき限り CC BY 4.0 で利用できます。生成AIを活用して作成・編集した内容を含みます。コードについて、別途ライセンス表示またはリンク先GitHubリポジトリのライセンスがある場合は、その条件を優先します。引用・第三者資料・画像・商標等は本ライセンスの対象外です。利用ポリシー