Получить значения из другой книги и применить префикс на основе имени столбца

Question

Я знаю, что этот вопрос слишком прост.Но я не знаю, как я буду применять свою логику в VBA Excel.Я хочу получить или вытащить данные из одной рабочей книги (Book1.xls) в другую рабочую книгу (Book2.xls).Мне нужно получить значения в столбцах A и B Book1 и назначить их в столбце A (Book2 - Подробности).Затем для каждого значения в столбце «Добавленный» он должен иметь префикс «Addition:», так же как и для столбца «Удаленные», для каждого значения в столбце «Удаленный» он должен иметь префикс «Удаление».Диапазон столбцов A и B в Book1 можно изменить.

Спасибо.

Answer 1

Это должно сработать

Sub AdditionDeletion()

    Dim ws1 As Worksheet
    Set ws1 = Workbooks("Book1").Worksheets("Compare")

    Dim ws2 As Worksheet
    Set ws2 = Workbooks("Book2").Worksheets("Details")

    Dim current As Long
    current = ws2.Range("A" & rows.count).End(xlUp).row + 1

    Dim i As Long
    For i = 3 To ws1.Range("B" & rows.count).End(xlUp).row
        ws2.Range("A" & current) = "Addition:" & ws1.Range("B" & i).Value2
        current = current + 1
    Next i

    For i = 3 To ws1.Range("A" & rows.count).End(xlUp).row
        ws2.Range("A" & current) = "Deletion:" & ws1.Range("A" & i).Value2
        current = current + 1
    Next i

End Sub