マクロでシートを分ける

質問

エクセル初心者です（簡単な表作成と四則計算程度）。
30シートある１つのファイル（シート名は１、２、３…30）を、それぞれ１シートずつ1つのファイルに分けて
30のファイルにしたいのですが、マクロを使うと簡単に分けられると聞きました。
どうやったらいいのでしょうか?
初心者には難しいでしょうか?
初心者にもできるようでしたら、わかりやすく説明していただけると助かります。

回答No.3

Wendy02

こんにちは。

シート名を全部同じにするなら、以下の部分のコメントブロックを外してください。
　　.ActiveSheet.Name = "Sheet1" ' シートの名前
また、ブック名は、ブックの先頭の名前とシートの順番で名前が付けられます。

'-------------------------------------------
Sub TestShCopies()
Dim sh As Worksheet
Const WBNAME As String = "TEST" 'ブックの先頭の名前
For Each sh In ActiveWorkbook.Worksheets
　sh.Copy
　With ActiveWorkbook
'　　.ActiveSheet.Name = "Sheet1" ' シートの名前
　　 'ブックの先頭の名前 + シートの順序
　　.SaveAs WBNAME & CStr(sh.Index)
　　.Close False
　End With
Next
End Sub

回答No.2

web2525

もっと簡単にできるかもしれませんが、一応マクロで作ってみました。

Sub
Application.DisplayAlerts = False
コピー元 = ActiveWorkbook.Name
ループ数 = Worksheets.Count
For RP = 1 To ループ数
Workbooks.Add template:=xlWBATWorksheet
コピー先 = ActiveWorkbook.Name
Windows(コピー元).Activate
Sheets(RP).Copy Before:=Workbooks(コピー先).Sheets(1)
Worksheets("sheet1").Delete
Next
Application.DisplayAlerts = True
End Sub

分割先のブックのシート名が数字の連番となっている事が前提ですが、このマクロでシートの数だけ別のブックが開きます。

回答No.1

cafe_au_lait

検索してみました。
マクロではなくアドインですが、

(5)Excelファイルにある各ワークシートをExcelファイルにします。

ということですので、希望の操作ができると思います。
設定方法はダウンロードしたファイルのヘルプにあるようです。

http://www.vector.co.jp/soft/win95/business/se342089.html

参考URL：

http://www.vector.co.jp/soft/win95/business/se342089.html