VBA 空のセルがあったら その 行を削除 メモ

Sub kuuhaku_sakuzyo()

Dim i As Long

For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row

If Cells(i, 4) = "" Then 'セルが空なら

Range(i & ":" & i).Delete '行を削除

End If

Next i

End Sub