数千の行と更新する数式が含まれているため、このコードをどのように改善できますか？

Question

以下のコードは、更新が必要な20,000行以上の数式の数式を含みますが、どのようにして時間を短縮するために簡略化できますか？

With Sheets("CDGL") 
Sheets("Rec").Range("B6").Resize(.Cells(.Rows.Count, "G").End(xlUp).Row - 1, 3).Value = Sheets("Duplicate Check").Range("A1:C" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value 
Sheets("Rec").Range("E6").Resize(.Cells(.Rows.Count, "D").End(xlUp).Row - 1, 4).Value = Sheets("Duplicate Check").Range("D1:G" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value 
Sheets("Rec").Range("I6").Resize(.Cells(.Rows.Count, "H").End(xlUp).Row - 1, 1).Value = Sheets("Duplicate Check").Range("H1:H" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value 
End With 

Answer 1

あなたWith文は奇妙に見える - しかし、それは必ずしも間違っていないのです..あなたはどのようにこれらの仕事を知って、なぜ私はそれが書かれているかと心配ですか？もしそうなら、これを無視してください。 Withの使い方がわからない場合、または書面の作成方法に懸念がある場合は、以下のコードがほぼ100％保証されていることをご連絡ください。

Sub t() 
Dim cdglWS As Worksheet 
Dim recWS As Worksheet 
Dim dupWS As Worksheet 

Set cdglWS = Sheets("CDGL") 
Set recWS = Sheets("Rec") 
Set dupWS = Sheets("Duplicate Check") 

With recWS 
    .Range("B6").Resize(.Cells(.Rows.Count, "G").End(xlUp).Row - 1, 3).Value = dupWS.Range("A1:C" & dupWS.Cells(dupWS.Rows.Count, "A").End(xlUp).Row).Value 
    .Range("E6").Resize(.Cells(.Rows.Count, "D").End(xlUp).Row - 1, 4).Value = dupWS.Range("D1:G" & dupWS.Cells(dupWS.Rows.Count, "A").End(xlUp).Row).Value 
    .Range("I6").Resize(.Cells(.Rows.Count, "H").End(xlUp).Row - 1, 1).Value = dupWS.Range("H1:H" & dupWS.Cells(dupWS.Rows.Count, "A").End(xlUp).Row).Value 
End With 

End Sub 

マクロの目標は何ですか。あなたが持っているので、Duplicate Checkシートからセルの価値を得て、その値をRecワークシートのセルに入れます。

CDGLシートにあるデータに依存するセルはどれですか。 CDGLの最後の行を使用してRecのセルを決定し、Duplicate Checkの値を配置します。 （少なくとも私はそう思う）。それはあなたの意図ですか？

あなたのしていることを簡単に説明して編集すると、OPで役立ちます。