Скопировать столбец B (ячейка B2) в Book1 Столбец B (ячейка B2) в Book2

Question

Может кто-нибудь помочь, пожалуйста?

Какой самый короткий код excel-vba для копирования всего столбца B (начиная с ячейки B2) из ​​Book1.xls в столбец B (начиная с ячейки B2) в Book2?

Я буду копировать несколько файлов Book1, Book2 и Book3.Book2 и Book3 должны быть вставлены в пустое место (последняя строка +1) в столбце B.

Sub CopyWorkbooks1()

    Workbooks.Open "C:\test\RESOURCE\Book1.xls"
    Range("B2:E15").Copy
    Workbooks.Open "C:\test\PUBLISH\PubFile.xls"
    Range("B2").Select
    ActiveSheet.Paste

    'activate, copy, and, paste G and H -- F and G
    Workbooks("book1.xls").Activate
    Range("G2:H15").Copy
    'activate and paste to PubFile
    Workbooks("pubfile.xls").Activate
    Range("F2:G15").Select
    ActiveSheet.Paste

End Sub

Sub LastRowMacro1()

    Dim ws As Worksheet
    Set ws = ActiveSheet
    For Each cell In ws.Columns(2).Cells
        If IsEmpty(cell) = True Then cell.Select: Exit For
    Next cell

End Sub

Ваша помощь очень ценится.

Answer 1

Ответ на ваш вопрос: ... После того, как вы откроете свои рабочие книги, используйте эту строку кода.Примечание. Измените имена рабочих книг, имена рабочих листов и диапазоны по мере необходимости.

Workbooks("Book1").Sheets(1).Range("B2", Cells(Rows.Count, "B").End(xlUp)).Copy Workbooks("Book2").Sheets(1).Range("B2")