|
かみちゃんさん、ichinoseさん、BOTTAさん
こんにちは
参考になりました。
ありがとうございました。
▼BOTTA さん:
>ichinoseさん、かみちゃんさん、チリさん、こんにちは。
>
>該当行のみをUnionメソッドで複数指定して、一気にDelete。
>
>Sub DelRow()
>Dim rngDel As Range, LastRow As Long, topR As Long, i As Long
> topR = 3 'この行まで削除(1,2行目は無視)
> LastRow = Range("C" & Rows.Count).End(xlUp).Row
> If LastRow < topR Then Exit Sub
> Set rngDel = Range("C" & LastRow + 1)
> For i = LastRow To topR Step -1
> If Range("C" & i).Value = "" Then
> Set rngDel = Union(rngDel, Range("C" & i))
> End If
> Next
> rngDel.EntireRow.Delete
> Set rngDel = Nothing
>End Sub
|
|