如何用VBA複製Excel的表格

本教程提供了一套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）從開放工作簿中選擇目標工作簿。兩個按鈕控制選擇和關閉。

用戶形式代碼：

公共選擇工作書作為字符串

私有子用戶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
結束子

宏將顯示一個開放式工作簿列表。

Excel宏：複製和重命名

這些宏自動化表重命名後自動化表：複製：

該宏複製活動表格，將其命名為“測試表”（可自定義），然後將其放在最後。

公共sub copysheetAndrenamePredined（）
    ActivesHeet.copy之後：=工作表（Sheets.Count）
    下一個錯誤簡歷
    ActivesHeet.name =“測試表”
結束子

此宏提示用戶獲取自定義表名稱。

公共子copySheetAndrename（）
    DIM NewName作為字符串
    下一個錯誤簡歷
    newname = inputbox（“輸入複製工作表的名稱”）
    如果newname “”，然後
        ActivesHeet.copy之後：=工作表（Sheets.Count）
        下一個錯誤簡歷
        ActivesHeet.name = newname
    如果結束
結束子

宏顯示一個輸入框，用於名稱輸入。

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
結束子

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）
        下一個
    如果結束
結束子

宏顯示一個輸入框，用於副本數量。

在您的工作簿中添加宏：

1. 打開Excel工作簿。
2. 按Alt F11打開VBA編輯器。
3. 右鍵單擊“ thisworkbook”，選擇“插入”>“模塊”。
4. 將宏代碼粘貼到模塊中。
5. 按F5運行。

從示例工作簿中運行宏：（下載包含這些宏的示例工作簿）。打開示例工作簿，然後在您自己的工作簿中按Alt F8，選擇宏，然後單擊“運行”。

以上是如何用VBA複製Excel的表格的詳細內容。更多資訊請關注PHP中文網其他相關文章！