Loops 创建循环以复制单元格

我正在尝试创建一个循环来复制一些特定的单元格。我对VBA相当陌生，但我只能让它在第一行循环。脚本的作用是将Sheet2736中的特定单元格复制到另一个名为pre的excel工作表中。在满足特定条件的所有情况下都应这样做。到目前为止，我的代码如下所示： 子副本1

 Dim i As Integer

 For i = 2 To 50
 If Range("A" & i).Value = "Pre" Then

    Range("A,B,C,D,F,G,H,I,K,L,M,S" & i).Select
    Range("S2").Activate
    Selection.Copy
    Sheets("PRE Hedge").Select
    Range("C3").Select
    ActiveSheet.Paste
    Sheets("PRE Hedge").Select

  End If
Next i

---

End Sub

您应该将代码更改为：

Sub copypre1()

    Dim i As Integer

    For i = 2 To 50
        If Range("A" & i).Value = "Pre" Then

            Range("A,B,C,D,F,G,H,I,K,L,M,S" & i).Select
            Range("S" & i).Activate
            Selection.Copy
            Sheets("PRE Hedge").Select
            Range("C" & (i+1)).Select
            ActiveSheet.Paste
            Sheets("Sheet2736").Select

        End If
    Next i
End Sub

---

嗨，谢谢你的帮助。我可以看出，我错过了粘贴值后返回第一页的部分。虽然它说对象的方法范围在到达行范围A、B、C、D、F、G、H、I、K、L、M、S&I时失败