というわけで、初めてスライサーなる機能を使ってみました。こいつは便利だ！ ダミーデータ５０００件
hogehoge.tk

住所が凶悪なセル結合

ばらして少し分類する。年代追加

班（ランダム1-10）を3つの課に分ける

ちょい順番変えて整えますか。後値貼り付けしておきましょう。

この黄色い個人情報はいらないから削除。

マクロ概要を考える。

1. A,C,H列で区切り位置を実行して数値に変換
2. テーブルを作成
3. シート追加
4. 新しいシートにA:D,F:I,J,Kのスライサーを追加

シート1はpersonal_infomation
シート1のマクロ

Sub add_kugiri()
 '区切り位置
Columns("A:A").TextToColumns
Columns("C:C").TextToColumns
Columns("H:H").TextToColumns
 'テーブル作成
Me.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = "ソース"
Me.ListObjects("ソース").TableStyle = "TableStyleLight9"
Me.ListObjects("ソース").ShowTableStyleColumnStripes = True
End Sub

シート2はslicer
標準モジュール

Sub makeTable()
 'slicerのページ選択
Sheet2.Select
 '列幅20字
Columns.ColumnWidth = 20
 'slicerタイトル
Dim slTitle: slTitle = Array("", "連番", "課", "班", "性別", "都道府県", "郵便番号", "年代", "出身地", "血液型")
Dim i As Integer
Dim t As Double
Dim l As Double
Dim w As Double
Dim h As Double
For i = 1 To UBound(slTitle)
t = Sheet2.Cells(1, i).Top
l = Sheet2.Cells(1, i).Left
w = Sheet2.Cells(1, i).Width
h = Range(Sheet2.Cells(1, i), Sheet2.Cells(10, i)).Height
ActiveWorkbook.SlicerCaches.Add(Sheet1.ListObjects("ソース"), slTitle(i)).Slicers.Add _
ActiveSheet, , slTitle(i), slTitle(i), t, l, w, h
Next
End Sub

コレ例えば、1課の30代以上の北海道の顧客・・・とか

とても視覚的にわかるんすよ！！　コレは便利！！（2回め）