コピー/貼り付けVBAの特殊ループ

Question

VBAで非常に新しく、単にコピー/貼り付け専用ループを実行しようとしています。どのようにコードを書いてループするたびに、「Filter Out Pitchers」タブで1つのセルをコピーし、「Batter Comparison」タブで特別な1つのセルをペーストするようにしますか？

Sub Hitters() 

    For i = 1 To 500 
     Worksheets("Filter Out Pitchers").Range("B2").Copy 
     Worksheets("Batter Analysis").Paste _ 
     Destination:=Worksheets("Batter Analysis").Range("B1") 
     Worksheets("Batter Analysis").Range("A88:AA88").Copy 
     Worksheets("Batter Comparison").Range("A2:AA2").PasteSpecial xlPasteValues 
    Next i 
End Sub 

Answer 1

わからないが、私は完全に理解したが、これはあなたが後にしているどのようなことがあります

For i = 1 To 500 
    Worksheets("Filter Out Pitchers").Range("B" & (1+i)).Copy _ 
     Destination:=Worksheets("Batter Analysis").Range("B2") 
    Worksheets("Batter Comparison").Range("A" & (1+i) & ":AA" & (1+i)).Value = _ 
     Worksheets("Batter Analysis").Range("A88:AA88").Value 
Next i