VBAでExcelのシートを複製する方法

このチュートリアルは、効率的なシートの重複のためのExcelマクロのスイートを提供します。セル値に基づいてコピーと変更、複数のシートの同時にコピー、アクティブなワークシートを他のファイルに開くことなく転送するなど。手動でコピーするシートは数枚のシートには十分にシンプルですが、多数のシートを繰り返し処理すると退屈になります。これらのマクロはプロセスを自動化します。

• シートを新しいワークブックにコピーします
• 複数のシートを複製します
• シートを別のExcelファイルにコピーします
• シートをコピーして名前を変更します
• セル値に基づいてシートをコピーして名前を変更します
• ワークシートを閉じたワークブックにコピーします
• 別のワークブックからシートを開かずにコピーします
• シートを複数回複製します
• VBAを使用してExcelのシートをコピーします

Excel VBAマクロ：新しいワークブックにシートをコピーする

この簡潔なマクロは、アクティブシートを新しいワークブックにコピーします。

 Public Sub Copysheettonewworkbook（）
    ActiveSheet.Copy
End Sub

Excel VBAマクロ：複数のシートのコピー

目的のワークシートを選択し、このマクロを実行して新しいワークブックにコピーします。

 Public Sub CopySelectedSheets（）
    ActiveWindow.SelectedSheets.Copy
End Sub

Excel VBAマクロ：別のワークブックにシートをコピーします

これらのマクロはアクティブシートを別のワークブックにコピーし、配置のオプションを提供します。

別のワークブックの先頭にコピー：このマクロは、宛先ワークブックの最初のシートの前にコピーされたシートを挿入します（「book1.xlsx」 - ファイルパスに置き換えます）。

 Public Sub Copysheettobeginninganotherworkbook（）
    ActiveSheet.Copy before：= workbooks（ "book1.xlsx"）。シート（1）
End Sub

別のワークブックの最後までコピー：このマクロは、宛先ワークブックの最後にコピーされたシートを追加します（「book1.xlsx」 - ファイルパスに置き換えます）。

 Public Sub CopysheettoEndanotherworkbook（）
    ActiveSheet.Copy after：= workbooks（ "book1.xlsx"）。
End Sub

注：ターゲットワークブックが存在する必要があります。

選択したワークブックへのコピー：これは、ListBox（ListBox1）を使用してuserform（userform1）を使用して、オープンワークブックから宛先ワークブックを選択します。 2つのボタンが選択と閉鎖を制御します。

ユーザーフォームコード：

文字列としてのpublic selectedworkbook

private sub userform_initialize（）
    SelectedWorkBook = ""
    listbox1.clear
    Application.workbooksの各WBKについて
        listbox1.additem（wbk.name）
    次
End Sub

private sub commandbutton1_click（）
    listbox1.listindex> -1の場合
        selectedworkbook = listbox1.list（listbox1.listindex）
    ifを終了します
    me.hide
End Sub

private sub commandbutton2_click（）
    SelectedWorkBook = ""
    me.hide
End Sub

ユーザーフォームで使用するマクロ：

選択したワークブックの先頭にコピーします：

 Public Sub CopysheetTobeginningSelectedWorkbook（）
    userform1をロードします
    userform1.show
    if（userform1.selectedworkbook  ""）then
        ActiveSheet.Copy before：= workbooks（userform1.selectedworkbook）.sheets（1）
    ifを終了します
    unload userform1
End Sub

選択したワークブックの最後までコピーします。

 Public Sub CopySheetToEendSelectedWorkbook（）
    userform1をロードします
    userform1.show
    if（userform1.selectedworkbook  ""）then
        ActiveSheet.Copy after：= workbooks（userform1.selectedworkbook）.sheets（workbooks（userform1.selectedworkbook）.worksheets.count）
    ifを終了します
    unload userform1
End Sub

マクロは、選択のためのオープンワークブックのリストを表示します。

Excel Macro：シートのコピーと名前を変更します

これらのマクロは、コピー後にシートの名前を自動化します。

このマクロはアクティブシートをコピーし、「テストシート」（カスタマイズ可能）に名前を付け、最後に配置します。

 public sub copysheetandrenamepredefined（）
    ActiveSheet.Copy after：= worksheets（sheets.count）
    エラーの再開時に次に再開します
    ActiveSheet.name = "Test Sheet"
End Sub

このマクロは、ユーザーにカスタムシート名を求めます。

 public sub Copysheetandrename（）
    文字列としてのDIM NEWNAME
    エラーの再開時に次に再開します
    newName = inputbox（ "コピーされたワークシートの名前を入力"）
    newName  "" thenの場合
        ActiveSheet.Copy after：= worksheets（sheets.count）
        エラーの再開時に次に再開します
        ActiveSheet.name = newName
    ifを終了します
End Sub

マクロは、名前エントリ用の入力ボックスを表示します。

Excel Macro：セル値に基づいてコピーと名前変更

これらのマクロは、セルの値を使用してコピーされたシートの名前を変更しました。

このマクロは、新しいシート名に現在選択されているセルの値を使用します。

 Public Sub CopySheetandranameBycell（）
    文字列としてのDIM NEWNAME
    エラーの再開時に次に再開します
    newName = inputbox（ "コピーされたワークシートの名前を入力します"、 "copy worksheet"、activecell.value）
    newName  "" thenの場合
        ActiveSheet.Copy after：= worksheets（sheets.count）
        エラーの再開時に次に再開します
        ActiveSheet.name = newName
    ifを終了します
End Sub

このマクロは、新しいシート名にセルA1（変更可能）の値を使用します。

 public sub copysheetandranamebybycell2（）
    ワークシートとしての薄暗い
    wks = activeSheetを設定します
    ActiveSheet.Copy after：= worksheets（sheets.count）
    if wks.range（ "a1"）。value  "" then
        エラーの再開時に次に再開します
        ActiveSheet.name = wks.range（ "a1"）。値
    ifを終了します
    wks.activate
End Sub 

Excel Macro：閉じたワークブックへのコピー

このマクロは、ファイルダイアログで選択された閉じたワークブックにアクティブシートをコピーします。

 Public Sub CopysheettoclosedWorkbook（）
    薄暗いファイル名
    ワークブックとしてのDIMクローズドブック
    ワークシートとしてのDim Currentsheet
    filename = application.getopenfileName（ "excel files（ *.xlsx）、 *.xlsx"）
    filename  falseの場合
        application.screenupdating = false
        currentsheet = application.activesheetを設定します
        closdbook = workbooks.open（filename）をセット
        currentsheet.copy after：= closdwook.sheets（closdbook.worksheets.count）
        closedbook.close（true）
        application.screenupdating = true
    ifを終了します
End Sub

Excel VBAマクロ：閉じたワークブックからのコピー

このマクロは、指定された閉じたワークブック（更新パスとシート名）からシートをコピーします。

 Public Sub CopysheetfromClosedWorkbook（）
    ワークブックとしての薄暗いソースブック
    application.screenupdating = false
    set sourcebook = workbooks.open（ "c：\\ users \\ xxx \\ documents \\ target_book.xlsx"） '更新パス
    sourcebook.sheets（ "sheet1"）。後にコピー：= thisworkbook.sheets（thisworkbook.sheets.count） '更新シート名
    sourcebook.close
    application.screenupdating = true
End Sub

Excel VBAマクロ：シートを複数回複製します

このマクロは、アクティブシートの複数のコピーを作成します。

 public sub duplicatesheetmultipletimes（）
    整数としてのdim n
    エラーの再開時に次に再開します
    n = inputbox（ "アクティブなシートのコピー数を作りたいですか？"）
    n> = 1の場合
        数字の場合= 1からn
            ActiveSheet.Copy after：= ActiveWorkbook.sheets（worksheets.count）
        次
    ifを終了します
End Sub

マクロは、コピー数の入力ボックスを表示します。

ワークブックにマクロを追加する：

1. Excelワークブックを開きます。
2. ALT F11を押して、VBAエディターを開きます。
3. 「thisworkbook」を右クリックし、「挿入」>「モジュール」を選択します。
4. マクロコードをモジュールに貼り付けます。
5. F5を押して実行します。

サンプルワークブックからマクロを実行しています：（これらのマクロを含むサンプルワークブックをダウンロード）。サンプルワークブックを開いてから、独自のワークブックでAlt F8を押し、マクロを選択し、[実行]をクリックします。

以上がVBAでExcelのシートを複製する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。