Question

VBA非常新，并尝试简单地复制/粘贴特殊循环。你如何编写代码，以便每次循环时它都会在Filter Out Pitchers选项卡中向下复制一个单元格并在Batter Comparison选项卡中粘贴特殊的一个单元格？

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

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

1 个答案: