|
▼UO3 さん:
こちらの方が時計マークが出てなくてスムーズでした!
考え方でこんなに変わるんですね。。。
残すべきものを残すと言うのは、私では考えがつきませんでした・・。
本当にありがとうございます!
>▼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
|
|