如何从工作簿A中的2个单元格复制数据并复制到单元格中的工作簿B如何启动for循环直到最后一行/列

Question

我有两个问题

• 如何使用workbookA中的两个单元格将数据组合并复制到同一单元格上的workbookB？

• 如何开始使用for循环将其复制到最后一行/列？

我不知道如何组合数据，我不知道将变量放在代码中的哪个位置，以便循环到最后一列。

Dim Tlastrow As Integer
Tlastrow = Cells(1, Columns.Count).End(xlToLeft).Column

 For r = 1 To Tlastrow
Workbooks("InputB.xls").Worksheets("HC_MODULAR_BOARD_20180112").Range("F3:G3").Copy _
        Workbooks("Output.xls").Worksheets("Sheet1").Range("I3")
Next

Answer 1

尝试这个：

Option Explicit
Sub Paste()

    Dim wsInput As Worksheet, wsOutput As Worksheet, LastRow As Long, C As Range

    Set wsInput = Workbooks("InputB.xls").Worksheets("HC_MODULAR_BOARD_20180112")
    Set wsOutput = Workbooks("Output.xls").Worksheets("Sheet1")

    With wsInput
        LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row 'Last Row with data
        For Each C In .Range("F3:F" & LastRow) 'loop for every row with data
            wsOutput.Cells(C.Row, "I").Value = C & " " & C.Offset(0, 1)
        Next C
    End With

End Sub

此代码假设您要将输入工作簿中的每一行粘贴到相同行的输出工作簿，但合并F和G列。 它只是粘贴价值，而不是公式或格式。