|
▼UO3 さん:
本当に何から何まですいません。。。
週末はパソコン見てなかったのですが、
こんなに早く・・・色々とありがとうございます!
>▼maimai さん:
>
>残すべきものを残すコードです。
>こちらのほうが、同じ時計マークでも処理時間は短いと思います。
>Sheet1からSheet2に転記しています。
>
>Sub Sample2()
> Dim r As Range
> Dim i As Long
> Dim wSh As Worksheet
>
> Application.ScreenUpdating = False
>
> Set wSh = Sheets("Sheet2") '転記シート
> wSh.Cells.ClearContents
>
> With Sheets("Sheet1") '元シート
>
> For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row Step 7
> Cells(i, 1).ClearContents
> Cells(i + 2, 1).Resize(3).ClearContents
> Cells(i + 6, 1).ClearContents
> Next
>
> Set r = Columns("A").SpecialCells(xlCellTypeConstants)
> r.EntireRow.Copy wSh.Range("A1")
>
> End With
>
> wSh.Select
> Application.ScreenUpdating = True
>
>End Sub
|
|