エクセル マクロで新規book作成 コードを教えて下さい！

A列にエリア、B,C,Dにそのエリアの情報が格納されているエクセルファイルがあります。 エクセルマクロで、A列に入っているエリア（たとえば、東北、関東、関西、四国、九州など）ごとに、そのエリアの行をコピーしてエリアの数分の新規Bookをいっきに作成するというコードを書きたいのですが、どなたかご存知の方ご教授ください。

質問者からの補足コメント

• ありがとうございます。やってみてまたご連絡します。

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/04/25 09:30

No.2 回答者： hallo-2007 回答日時： 2015/04/25 11:57

NO1です。

ちょっとしたアドバイスと云う事で
作成したファイルはどうされるのでしょうか？
もし、それぞれにメールで送信するのであれば
VBAでアリアごとに送信して、送信済みファイルは削除
ファイルの管理はOutLookで行えばフォルダーがすっきりします。
また、送信間違いなどミスもなくなります。

この回答へのお礼

アドバイスどうもありがとうございました。

お礼日時：2015/04/28 12:44

No.1 回答者： hallo-2007 回答日時： 2015/04/25 08:15

Sub ボタン1_Click()

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Workbooks.Add
Rows(2).Value = ThisWorkbook.ActiveSheet.Rows(i).Value
ActiveWorkbook.Close SaveChanges:=True, _
Filename:=ActiveWorkbook.Path & ThisWorkbook.ActiveSheet.Range("A" & i).Value
Next
End Sub
こんな感じでしょうか。

この回答へのお礼

どうもありがとうございました。

お礼日時：2015/05/02 13:00