ワークシート間で大量のデータをコピーして貼り付けるためのVBAマクロルーチン

Question

データの長いワークシートを移動しながら同じコピーと貼り付け手順を繰り返し実行できるようにするVBAルーチンを探しています。私は、ワークシートを通って繰り返される小さな領域のセルをコピーすることに興味があり、必要な次の選択領域から同じ距離だけ離れています。

次回る上だから、基本的に

Sheets("Excel_Essex_Helos_Dump_80520_12").Select 
Range("B6").Select 
Selection.Copy 
Sheets("Sheet1").Select 
Range("B4").Select 
ActiveSheet.Paste 
Sheets("Excel_Essex_Helos_Dump_80520_12").Select 
Range("D6").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Sheet1").Select 
Range("B5").Select 
ActiveSheet.Paste 
Sheets("Excel_Essex_Helos_Dump_80520_12").Select 
Range("F6").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Sheet1").Select 
Range("B6").Select 
ActiveSheet.Paste 
Sheets("Excel_Essex_Helos_Dump_80520_12").Select 
ActiveWindow.SmallScroll Down:=24 
Range("A47:A73").Select 
Application.CutCopyMode = False 
Selection.Copy 
Sheets("Sheet1").Select 
Range("B7").Select 
ActiveSheet.Paste 

私は、次の各セルは73個のセル離れて前のものからなりますなど、「B79」とし、「D79」と「F79」を選択します。範囲に73を加えて終了するまで繰り返すことができるルーチンがありますか？

Answer 1

これは答えではありませんが、簡単にコピー>>貼り付けSelectとActiveSheetを使わずに貼り付けてください。コピーしたい（とフォーマットおよび/または式が含まれる）場合

使用：

With Sheets("Excel_Essex_Helos_Dump_80520_12") 
    .Range("B6").Copy Destination:=Sheets("Sheet1").Range("B4") 
End With 

あなたは値だけをコピーしたい場合は、使用することができます。

With Sheets("Excel_Essex_Helos_Dump_80520_12") 
    Sheets("Sheet1").Range("B4").Value = .Range("B6").Value 
End With 

を今、することができますソースおよび宛先ワークシートの行番号と列番号を組み込みます。