【コピペでOK】Excelシート別に個別ブック作成VBA！複数シートを個別のエクセルに一括分割！

エクセルのシートを、個別のエクセルに分割したい！
取引先毎のシートを分割して送りたいけど、普通にやったら手間がかかる…

取引先毎のシートを、各社に送付したい時など、シート分割はたまにある面倒な作業ではないでしょうか？

エクセルシートを個別のファイルとして保存するのは、意外と面倒ですよね。シートを選択して別のエクセルに移動し、そのエクセルを保存する。複数ある場合は、結構時間がかかります。

そんな作業は、VBA（マクロ）で自動化できます。本記事では、コピペでそのまま使えるVBAコードを紹介します。また、貼り付け方や実行方法まで画像付きで解説するので、VBAが分からない方も安心して読み進めてください！

またこのブログでは、ほかにもコピペで使えるVBAを多数紹介しています。こちらでも紹介しているので、ぜひ参考にしてみてください！

【結論】コピペで使えるエクセルシート分割VBA
エクセルシート分割VBAの動作
エクセルシート分割VBAの使い方について
まとめ：コードを改良してもっと使いやすく！

【結論】コピペで使えるエクセルシート分割VBA

以下のVBAコードをそのままエクセルに貼り付ければ、セルの内容に従ってフォルダを一括で作成できます。

Sub ExportSheetsToXlsx()
    Dim folderPath As String
    Dim fileDialog As fileDialog
    Dim ws As Worksheet
    Dim tempWB As Workbook
    Dim sheetName As String
    ' フォルダ選択ダイアログを表示
    Set fileDialog = Application.fileDialog(msoFileDialogFolderPicker)
    fileDialog.Title = "エクセルの保存先フォルダを選択してください"
    If fileDialog.Show = -1 Then
        folderPath = fileDialog.SelectedItems(1)
    Else
        MsgBox "フォルダが選択されていません。処理を中止します。"
        Exit Sub
    End If
    ' 各シートをXlsxとして保存
    For Each ws In ThisWorkbook.Worksheets
        sheetName = ws.Name
        ' 一時ブックを作成してシートを
        ws.Copy
        Set tempWB = ActiveWorkbook
        ' Xlsxとして保存
        Application.DisplayAlerts = False ' 上書き確認を表示しない
        tempWB.SaveAs Filename:=folderPath & "\" & sheetName & ".xlsx", FileFormat:=xlOpenXMLWorkbook
        tempWB.Close SaveChanges:=False
        Application.DisplayAlerts = True
    Next ws
    MsgBox "全シートのエクセル保存が完了しました！"
End Sub

💻 まだまだあります！実務で使えるコピペコード集

当サイトで紹介している、日々の面倒な作業を自動化するVBA・マクロを一覧ページにまとめています!

コードまとめ一覧を見る＞