一つのシートのデータを部署ごとに複数のブックへマクロを使って切り分けたい

質問

一つの大きなデータがエクセルのSheet1にあります。
以下は例です。
NO | 部署 | 分類 | 商品名 | 数量 | 単価 | 売上金額
1　 | 福岡 | 家具 |テーブル| 3 |198,000 | 594,000
2 | 大阪 | 家具 |テーブル| 2 |198,000 | 396,000
3 | 大阪 | 家具 |テーブル| 4 |198,000 | 792,000

部署ごとにマクロを利用して、複数のブックに切り分ける作業を行いたいです。
しかし、マクロは単純作業を記録して実行するというような基本的なことしかわかりません。
専門的用語ではなく、
(1)ツールをクリック
(2)すべてのブックを開いておく
(3)Visual　Basicをクリック
などというように、手順を教えていただけないでしょうか？
よろしくお願いします。

回答No.2

n-jun

>部署ごとにマクロを利用して、複数のブックに切り分ける作業を行いたいです。
既存の各Ｂｏｏｋにデータを追加していくのか、
現在のデータを単に新規Ｂｏｏｋに振り分けていくのか、
どちらなんでしょうか？

回答No.1

hallo-2007

Sheet1のA1セルに　保存する先のパス　C:\データ とか
Sheet2のA列に
部署
福岡
大阪
・・と切り分けるためのファイル名の一覧
他シートにデータがあったとして

Sub Sampl2()
Dim i As Integer
Cells.Select
Selection.AutoFilter
For i = 2 To Sheets("Sheet2").Range("A65536").End(xlUp).Row
Selection.AutoFilter Field:=2, Criteria1:=Sheets("Sheet2").Cells(i, 1).Value
Rows("1:1000").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Sheets("Sheet1").Range("A1").Value & "\" & ThisWorkbook.Sheets("Sheet2").Cells(i, 1).Value & ".xls"
ActiveWindow.Close
Next
End Sub

を標準モジュールにコピイ
実行してみてください。
不明な部分は再度質問してください。