Question

我在sheet1中有一个包含2000行和50列的excel文件。我需要将同一工作簿中第1行的第3行和第9行的每隔一行复制并粘贴到第2行。然后，在粘贴之前的行之后，从第1行到第2行的第90行到第2000行中的每第6行。我对VBA很新。任何人都可以帮我写宏...

尝试：

    Dim strValue As String
    Dim strCellNum As String
    Dim x As String
    x = 1
    For i = 1 To 700 Step 7
    strCellNum = "A" & i
    strValue = Worksheets("Sheet1").Range(strCellNum).Value
    Debug.Print strValue
    Worksheets("Sheet2").Range("A" & x).Value = strValue
    x = x + 1
    Next

Answer 1

Sub CopyNew()
    Dim NextDest As Long
    Dim CurRow As Long

    NextDest = 1

    For CurRow = 3 To 900 Step 2
        Sheets("Sheet1").Rows(CurRow).Copy
        Sheets("Sheet2").Range("A" & NextDest).PasteSpecial
        NextDest = NextDest + 1
    Next CurRow
    For CurRow = 901 To 2000 Step 6
        Sheets("Sheet1").Rows(CurRow).Copy
        Sheets("Sheet2").Range("A" & NextDest).PasteSpecial
        NextDest = NextDest + 1
    Next CurRow

End Sub

将第n1行从第x1行复制到第2行（第1行），然后在每第n行数据粘贴后立即将第n2行复制到第2行

1 个答案: