🔄
DeleteEmptyRows
データ処理アクティブシートの空行をすべて削除します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： DeleteEmptyRows を実行すると、シート内の空行が削除されます
💻 VBAコード
' DeleteEmptyRows
' -----------------
' Macro Name: DeleteEmptyRows
' Description: アクティブシートの空行をすべて削除します
' Parameters: なし
' Returns: なし
' Usage: DeleteEmptyRows を実行すると、シート内の空行が削除されます
' -----------------
Sub DeleteEmptyRows()
On Error GoTo ErrorHandler
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim deletedCount As Long
Set ws = ActiveSheet
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
deletedCount = 0
If lastRow < 1 Then
MsgBox "データが見つかりません", vbCritical, "エラー"
Exit Sub
End If
For i = lastRow To 1 Step -1
If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
ws.Rows(i).Delete
deletedCount = deletedCount + 1
End If
Next i
MsgBox deletedCount & " 行の空行を削除しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub