Question

我有两个问题

如何使用工作簿A中的两个单元格合并数据并复制到同一单元格上的工作簿B中？
如何开始使用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列。它只是粘贴值，而不是公式或格式。

如何从工作簿A的2个单元中复制数据并在一个单元中复制到工作簿B，以及如何开始for循环直到最后一行/列

1 个答案: