Question

有人可以帮忙吗？

最短的excel-vba代码将Book1.xls中的所有B列（从单元格B2开始）复制到Book2的B列（从单元格B2开始）是什么？

我将复制多个文件Book1，Book2和Book3。需将Book2和Book3粘贴到B列的空白处（最后一行+1）。

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")

复制Book1中的B列（单元格B2）在Book2中复制B列（单元格B2）

1 个答案: