VBA中的复制/粘贴特殊循环

Question

VBA的新手，并试图做一个简单的复制/粘贴特殊循环。 您将如何编写代码，以便每次循环时都在“过滤出投手”选项卡中向下复制一个单元格，并在“击球员比较”选项卡中向下粘贴特殊的一个单元格？

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