Question

我试图创建一个复制某些特定单元格的循环。我对VBA相当新，但我只能让它循环到第一行。脚本的目的是将Sheet2736中的特定单元格复制到另一个名为pre的excel表格中。这应该在满足特定条件的所有情况下完成。到目前为止我的代码看起来像这样： 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("S2").Activate
    Selection.Copy
    Sheets("PRE Hedge").Select
    Range("C3").Select
    ActiveSheet.Paste
    Sheets("PRE Hedge").Select

  End If
Next i

End Sub

Answer 1

你应该通过将代码更改为：

来重新安排第一张表

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

创建一个循环来复制单元格

1 个答案: