空のセルがある行を削除
C列のセルが空白の場合、A〜Cを削除して上に詰めるマクロ。
ポイントは、ループのiを大きい方からまわすこと。
行を削除していくため、1からループさせると、無限ループに陥ります。
Dim ID As String
For i = 1000 To 1 Step -1
If Range("C" & i).Value = "" Then
Range("A" & i & ":C" & i).Delete (xlShiftUp)
End If
Next i
End Sub
コメントする