【Exceｌ】エクセル　シート　ブック　分割

エクセルで複数のシートをブックに分割して保存するには、

マクロに下記コードを記述し実行すれば　OK です。

ファイルが重くフリーズしてしまうとき回避策となります

—-―――――

Sub sheets_save()
For Each シート In Worksheets
    If シート.Name <> "macro" Then
シート.Copy
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & シート.Name
        ActiveWorkbook.Close
    End If
Next シート
End Sub

—-――――――