|
▼UO3 さん:
早速のご返信ありがとうございます。
以下、確認させて頂きます!
>▼maimai さん:
>
>結構、時計マークが長くでて、エクセルが固まってしまったように感じるかもしれません。
>もしかしたら、不要なものを削除するより、必要なものを残した方がよかったかも。
>
>Sub Sample()
> Dim r As Range
> Dim i As Long
> Dim a As Range
>
> Set r = Union(Range("A1"), Range("A3:A5"), Range("A7"))
>
> For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 7
> Set a = Union(Range("A" & i), Range("A" & i + 2 & ":A" & i + 4), Range("A" & i + 6))
> If r Is Nothing Then
> Set r = a
> Else
> Set r = Union(r, a)
> End If
> Next
>
> r.EntireRow.Delete
>
>End Sub
|
|