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
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