データの集計をして、Excelのブックに保存する処理

質問

1500人分のデータ（有給残日数・振休未消化日数・時間外）を所属別に集計して、
内訳と所属の合計値を所属別にブックを作成して保存し、それに全体の平均値を出したシートを追加して、
グラフを作成し、該当所属長にメールで送信するという作業が毎月あり、
かなりの時間をかけてコピー・ペーストしながら手作業でやっております
（なんせ50箇所もあるため、50個のブックに分けるのが大変です。）
この一連の作業を、なんとか自動化できないものでしょうか？

Excelのマクロを今勉強中で、操作しながら記録するのと、少し改変することができる程度で、詳しい知識はもちあわせておりません。
Accessも、クエリはあつかえますが、SQLとかはわかりませんし、こちらも詳しい知識はもちあわせておりません。

データとしては、
本部コード・所属コード・所属名　・社員番号・氏　　名・時間外対象フラグ・有給残・振休日数・時間外
　999900　・　999999　・××支店・777777　・磯野並平・　　　　　　Y 　　・　　10　　・　　　3　　・　　5.5
　・
　・
　・

××支店のブック
　シート１・・・データシート：××支店　所属者のデータ・最終行に合計表示
　シート２・・・全体の平均値：××支店の平均値（時間外の合計÷時間外対象者の数）（有給残の合計÷人数の合計）（未消化日数の数÷人数の合計）
　　　　　　　　　　　　　　　○○支店の平均値　同上　　　【全支店共通】
　シート３・・・グラフ【全支店共通】

といったかんじにしたいのです。
シート２は、グラフを作成するためのものなので、グラフさえできれば、なくてもかまわないです。
Accessを使って、本部コードごとに集計して、Excelにエクスポートをして、その後はマクロでグラフを作成するのがいいのかなと思いますが、本部ごとのデータをそれぞれ分けてエクスポートすることが可能かどうか、マクロでグラフを作成するほうほうがわかりません。
Excelですべてできるものでしょうか？

Access大辞典やExcelのマクロの本を買い、インターネットで調べたりいろいろしておりますが、結局どのようにしたらいいのかという根本的なところがわかりませんので、困っております。
どうかお知恵をお貸しください。
よろしくお願いいたします。

回答No.1

papayuka · ベストアンサー

たぶん全てExcel-VBAで可能だと思います。
但し、相当のスキルを要求される処理で、道のりは険しいと思います。

取り合えずブック分けのサンプルを。
以下の条件で、サンプルブックを用意して試してみてください。

　1）新規ブックの一番左のシートのセル A1からタイトル行を含むデータがある
　2）B列の所属コードでソートされている
　3）上記のブックはマクロ実行前に名前を付けて保存されている。

下記を実行すると上記ブックと同じフォルダ内にB列毎のデータを保存します。
以上、参考まで。

'******************************************************************
Sub BookSeparate()
Dim myList(), wb As Workbook, tws As Worksheet, i As Integer

On Error Resume Next

Set tws = ThisWorkbook.Worksheets(1)
If Not tws.AutoFilterMode Then
　 tws.Range("A1").CurrentRegion.AutoFilter
End If

Call ListCreate(tws, myList, 2)

For i = 0 To UBound(myList)
　Set wb = Workbooks.Add(xlWBATWorksheet)
　wb.Worksheets(1).Name = myList(i)
　tws.Range("A1").CurrentRegion.AutoFilter _
　　　field:=2, Criteria1:=myList(i)
　tws.Range("A1").CurrentRegion.Copy _
　　　Destination:=wb.Worksheets(1).Range("A1")
　wb.SaveAs Filename:=ThisWorkbook.Path & "\" & myList(i) & ".xls"
　wb.Close
Next i

tws.Range("A1").AutoFilter

End Sub

'******************************************************************
Private Sub ListCreate(ws As Worksheet, rList, myCol As Integer)
Dim myLow As Long, cnt As Long

myLow = 2: cnt = 0

Do While ws.Cells(myLow, myCol).Value <> ""
　 If ws.Cells(myLow, myCol).Value <> _
　　　ws.Cells(myLow, myCol).Offset(-1, 0).Value Then
　　　ReDim Preserve rList(cnt)
　　　rList(cnt) = ws.Cells(myLow, myCol).Value
　　　cnt = cnt + 1
　 End If
　 myLow = myLow + 1
Loop

End Sub