复制所有行，粘贴到另一个工作sheet 交替行与目标上的现有数据 sheet)

Question

我正在寻找从 ws1 到 ws2 的 copy/paste 值

具体来说，要将 2 列数据从工作表 #1 复制到工作表 #2，并在同一列的交替单元格中粘贴。

示例：

Worksheet 1 (from)
           Col AM   Col AN
Row 25     TEMP01   10001
Row 26     TEMP02   20002     
Worksheet 2 (to)
           Col A
Row 3      TEMP01
Row 4      10001
Row 5      TEMP02
Row 6      20002

我只是想将单列粘贴到交替的行中，但无济于事。收到

"Object Variable or With block variable not set"

错误。

Sub Alternate()
    Dim wsFrom As Worksheet
    Dim wsTo As Worksheet
    Dim LR As Long
    Dim i As Long
    Dim n As Long

    With wsFrom
        LR = wsFrom.Range("AM" & .Rows.count).End(xlUp).Row
        n = 3
        For i = 2 To LR
            wsFrom.Range("AM" & i).Copy
            wsTo.Range("A" & n).PasteSpecial xlPasteValues
            n = n + 2
        Next i
    End With
End Sub

Answer 1

你需要这样的东西：

    Set wsFrom = Sheets("WS1")
    Set wsTo = Sheets("WS2")

之前：

    With wsFrom

为了定义工作表对象。
您还需要：

    wsFrom.Range("AN" & i).Copy
    wsTo.Range("A" & n + 1).PasteSpecial xlPasteValues

之前：

    n = n + 2

以便复制备用值。最后，您的循环从第 2 行开始，您为 wsFrom 提供的数据从第 25 行开始。

复制所有行，粘贴到另一个工作sheet 交替行与目标上的现有数据 sheet)

copy all rows, paste into another worksheet alternating rows with exsiting data on destination sheet)

excel

multiple-columns

worksheet

alternating

vba