Как скопировать данные из двух ячеек из книги A и скопировать в книгу B в ячейке и как запустить цикл for до последней строки / столбца

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. Это просто вставка значений, а не формул или форматов.