EXCELの各行をファイルに分けたい

質問

ＥＸＣＥＬについてのご質問です。
１行にメンバーの氏名・住所等を入れたリストがあるのですが、これをメンバーごとに一つの表にして（イメージとしては、ファイルメーカーのリスト表示をフォーム表示にする感じ）、出来れば１つの表を１ファイルにして、各個人のファイルを人数分作りたいと思っています。
少量ならコピペすればいいのですが、何百行もあるのでちょっと大変です。何か簡単に出来るような方法はないでしょうか。
よろしくお願い致します。

回答No.1

himadakarane

本来はAccessの仕事だと思いますが・・・

Sub 行ごとに保存()

　　Dim Nowsheet, CopySheet As Worksheet
　　iMaxRow = Cells.SpecialCells(xlLastCell).Row

　　Set Nowsheet = ActiveSheet

　　Sheets.Add
　　ActiveSheet.Name = "保存作業用"
　　Set CopySheet = ActiveSheet

　　For Row = 1 To iMaxRow Step 1

　　　　' ↓ここで各行から適切なセルへ代入（場合によってはCopySheetの書式変更も）
　　　　CopySheet.Cells(1, 1).Value = Nowsheet.Cells(Row, 1).Value

　　　　CopySheet.Copy
　　　　ActiveWorkbook.SaveAs ("c:\行ごと" + CStr(Row) + ".xls")
　　　　ActiveWorkbook.Close SaveChanges:=False
　　Next Row

　　Application.DisplayAlerts = False
　　ActiveSheet.Delete
　　Application.DisplayAlerts = True

End Sub