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