如何用VBA复制Excel的表格-excel-PHP中文网

首页

专题

excel

如何用VBA复制Excel的表格

Lisa Kudrow

Apr 05, 2025 am 09:34 AM

本教程提供了一套Excel宏，以进行有效的工作表重复：根据单元格值复制和重命名，同时复制多个表格，将主动工作表转移到其他文件而不打开它们的情况下，等等。手动复制床单足以容纳几张床单，但是在反复处理许多床单时变得乏味。这些宏可自动化该过程。

副本到新工作簿
复制多张纸
将副本抄表到另一个Excel文件
复制并重命名
根据单元格复制并重命名表
将工作表复制到封闭的工作簿
从另一个工作簿中复制一张纸，而无需打开它
多次复制一张纸
使用VBA复制Excel中的床单

Excel VBA宏：将纸复制到新工作簿

这个简洁的宏将活动纸复制到新的工作簿中。

公共子copysheettonewworkbook（）
    Activesheet.copy
结束子

Excel VBA宏：复制多张

选择所需的工作表并运行此宏以将其复制到新的工作簿中。

 public sub copyselectedSheets（）
    ActiveWindow.SelectedSheets.copy
结束子

Excel VBA宏：将表复制到另一个工作簿

这些宏将活动表复制到另一个工作簿，提供了安置的选项：

复制到另一个工作簿的开头：此宏将复制的工作表插入目标工作簿中的第一张纸（“ book1.xlsx” - 用文件路径替换）。

公共子copysheettobeginninganotherworkbook（）
    ActivesHeet.copy之前：= Workbooks（“ Book1.xlsx”）。床单（1）
结束子

复制到另一个工作簿的末尾：此宏将复制的表附加到目标工作簿的末尾（“ book1.xlsx” - 用文件路径替换）。

公共子copysheettoendanotherworkbook（）
    ActivesHeet.copy之后：= Workbooks（“ Book1.xlsx”）。床单（Workbooks（“ Book1.xlsx”）。工作表S.Count）
结束子

注意：必须存在目标工作簿。

复制到选定的工作簿：这是使用ListBox（ListBox1）的UserForm（UserForm1）从开放工作簿中选择目标工作簿。两个按钮控制选择和关闭。

如何用VBA复制Excel的表格

用户形式代码：

公共选择工作书作为字符串

私有子用户form_initialize（）
    Selected Workbook =“”
    ListBox1.clear
    适用于应用程序中的每个WBK。
        ListBox1.additem（wbk.name）
    下一个
结束子

私有sub commandbutton1_click（）
    如果ListBox1.listIndex> -1，则
        selectedworkbook = listbox1.list（listBox1.listIndex）
    如果结束
    我躲藏了
结束子

私有sub commandbutton2_click（）
    Selected Workbook =“”
    我躲藏了
结束子

与用户形式一起使用的宏：

复制到选定的工作簿的开头：

公共子copysheettobeginningselectedworkbook（）
    加载UserForm1
    userform1.show
    if（userform1.selectedworkbook “”），然后
        ActivesHeet.copy之前：= Workbooks（userform1.SelectedWorkbook）。
    如果结束
    卸载UserForm1
结束子

复制到选定的工作簿的末尾：

公共子copysheetToEndSelectedWorkbook（）
    加载UserForm1
    userform1.show
    if（userform1.selectedworkbook “”），然后
        ActivesHeet.copy之后：= Workbooks（userform1.SelectedWorkbook）.Sheets（Workbooks（userform1.Selectedworkbook）.worksheets.counts.count）
    如果结束
    卸载UserForm1
结束子

宏将显示一个开放式工作簿列表。

如何用VBA复制Excel的表格

Excel宏：复制和重命名

这些宏自动化表重命名后自动化表：复制：

该宏复制活动表格，将其命名为“测试表”（可自定义），然后将其放在最后。

公共sub copysheetAndrenamePredined（）
    ActivesHeet.copy之后：=工作表（Sheets.Count）
    下一个错误简历
    ActivesHeet.name =“测试表”
结束子

此宏提示用户获取自定义表名称。

公共子copySheetAndrename（）
    DIM NewName作为字符串
    下一个错误简历
    newname = inputbox（“输入复制工作表的名称”）
    如果newname “”，然后
        ActivesHeet.copy之后：=工作表（Sheets.Count）
        下一个错误简历
        ActivesHeet.name = newname
    如果结束
结束子

宏显示一个输入框，用于名称输入。

如何用VBA复制Excel的表格

Excel宏：基于单元格的复制和重命名

这些宏使用单元格的值重命名复制的纸张：

该宏使用当前选择的单元格值的新表名称。

公共子copySheetAndrenameBycell（）
    DIM NewName作为字符串
    下一个错误简历
    newname = inputbox（“输入复制工作表的名称”，“复制工作表”，activecell.value）
    如果newname “”，然后
        ActivesHeet.copy之后：=工作表（Sheets.Count）
        下一个错误简历
        ActivesHeet.name = newname
    如果结束
结束子

该宏使用新单名称的单元格A1（可更改）的值。

公共子copySheetAndrenameByCell2（）
    昏暗的wks作为工作表
    设置WKS = ActivesHeet
    ActivesHeet.copy之后：=工作表（Sheets.Count）
    如果wks.range（“ a1”）。值“”然后
        下一个错误简历
        ActivesHeet.name = wks.range（“ A1”）。值
    如果结束
    wks.crivate
结束子

如何用VBA复制Excel的表格

Excel宏：复制到封闭的工作簿

该宏将活动表复制到通过文件对话框选择的封闭工作簿。

如何用VBA复制Excel的表格

公共子copysheettoclosedworkbook（）
    DIM文件名
    昏暗的封闭手册作为工作簿
    昏暗的电费表作为工作表
    filename = application.getopenfileName（“ excel files（ *.xlsx）， *.xlsx”）
    如果文件名 false，则
        application.screenupdating = false
        设置Currentsheet = Application.ActiveSheet
        set leacterbook = workbooks.open（文件名）
        currentsheet.copy之后：= oflectbook.sheets（leacterbook.worksheets.count）
        封闭式书（true）
        application.screenupdating = true
    如果结束
结束子

Excel VBA宏：从封闭的工作簿中复制

该宏从指定的封闭工作簿（更新路径和表名称）中复制表格。

公共子copysheetfromcloseworkbook（）
    昏暗的源书作为工作簿
    application.screenupdating = false
    set sourcebook = workbooks.open（“ c：\\用户\\ xxx \\文档\\ target_book.xlsx”）'更新路径
    sourcebook.sheets（“ sheet1”）。复制以下：= thisworkbook.sheets（thisworkbook.sheets.count）'更新表名称
    sourcebook.close
    application.screenupdating = true
结束子

Excel VBA宏：多次复制表

该宏创建了活动表的多个副本。

 public sub deplicateSheetMultipletimes（）
    昏暗的n作为整数
    下一个错误简历
    n =输入框（“您要制作多少个活动表的副本？”）
    如果n> = 1，则
        对于numtimes = 1至n
            ActivesHeet.copy之后：= ActiveWorkBook.Sheets（Worksheets.count）
        下一个
    如果结束
结束子

宏显示一个输入框，用于副本数量。

如何用VBA复制Excel的表格