|
入力画面から別シートへ転記するコードを作ったのですが
処理時間が長すぎて困っています。
どこのコードが悪いのかどなたか教えてもらえないでしょうか。
Dim 号車NO As Long
Dim 日付 As Long
号車NO = Range("B3").Value
日付 = Range("B2").Value
Range("A7:H14").Copy
Sheets("キャッシュ").Activate
Range("A65536").End(xlUp).Activate
ActiveCell.Offset(1, 2).Activate
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveCell.Offset(0, 8).Activate
Do Until ActiveCell.Offset(0, -7).Value = ""
ActiveCell.Offset(0, -10).Value = 号車NO
ActiveCell.Offset(0, -9).Value = 日付
ActiveCell.Offset(1, 0).Activate
Sheets("入力画面").Activate
Range("A7:H14").Activate
Selection.ClearContents
Sheets("キャッシュ").Activate
Loop
|
|