ピポットテーブルはよくわからないから諦めた。

あとまとめかたをどうするかという話で。

伝票番号で部署が分けられているらしいので、

それを自動化させていこうと思う。

データは仮でまぁこんな感じで

AとBが違う部署で、みたいな。

となったときに便利なのがこれ

データの詳細設定

で、原理はよくわからないけども

リストの範囲は伝票の範囲で

検索条件の範囲はA１とA２のようにして

A5のセルを選択してOKを押す

とAだけ拾ってくれる

フィルター的な？？機能なのかな？？

でBも同様にして

これでそれぞれの部署ごとの仕分けができた。

のでマクロの記録をして仕分けできるようにしよう。

見る人が見たら怒るだろうが、まぁ

Sheets("A").Select
Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

Sheets("B").Select
Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

Sheets("A").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Sheets("伝票").Columns("A:G").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A!Criteria"), CopyToRange:=Range("A5"), Unique:= _
False

Sheets("B").Select
Range("D2").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Sheets("伝票").Columns("A:G").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B!Criteria"), CopyToRange:=Range("B!Extract"), _
Unique:=False

Sheets("操作シート").Select

これで

これが

このシートのボタンで

こうなる

まぁこれだけだと数秒程度だけども、

都度データ集計をするのであれば

多少効率化は図れた、はず。