Exce l 名簿のフィルタ項目を変えながら連続印刷する方法

こんな感じの疑似データを用意しました。

今回は出身地ごとにフィルタリングしながら連続印刷していきます。

フィルタリングする項目を設定する。

出身地を昇順（５０音順）にして番号を割り振ります。

※データをテーブルにしておきましょう（範囲を選択し「Ctrl+T」でテーブル化。テーブル名はデフォルトでは「テーブル1」となります）。

=SORT(UNIQUE(テーブル1[出身地]),,1)

これで重複なく取り出したフィルタリング項目を昇順で並べ替えます。

隣に対応する番号を割り振ります。

※UNIQUE関数は範囲内の値を重複がない状態で取り出します。
　UNIQUE(配列,[列の比較],[回数指定])

※SORT関数は範囲の並び順を指定することができます。
　SORT関数(配列,[並べ替えインデックス],[並べ替え順序],[並べ替え基準])

どの都道府県でフィルタリングするのかを表示する。

=XLOOKUP(L2,U:U,T4#)

これでL2に入力した値に応じた都道府県名が表示されるようになります。

このL2の値を１から４７まで変更する作業はマクロにしてもらいます。

※XLOOKUP関数はVLOOUUPに置き換わる関数で、戻り値の指定が簡単にできるようになりました。
XLOOKUP(検索値,検索範囲,戻り範囲,[見つかれない場合],[一致モード],[検索モード])

今回は出身地の抽出にスピル（参照元のデータの個数によって、出力データの個数が変わる機能のことをスピルと言います。今回はUNIQUE関数がスピル機能を持っています）を使っていますので、テーブル化せず、範囲(U4,U50,T4#)としました。

※#はスピルによって出力されたデータの範囲すべてという意味です。

フィルタリングする。

=FILTER(テーブル1,テーブル1[出身地]=K2)

これで出身地がK2の都道府県と一致した列だけが抽出されます。

※FILTER関数は配列のうち、設定した条件と一致した範囲を表示してくれます。
今回だとK2と同じ都道府県。
　FILTER(配列,含む,[空の場合])

マクロを作成する。

※リボンに「開発」タブがない場合は以下の手順で「開発」タブを表示させましょう。

「ファイル」＞「オプション」＞「リボンのユーザー設定」＞ウインドウ右の「メインタブ」の「開発」にチェック

「開発」＞「マクロ」＞マクロに名前を付けて「作成」

以下のコードを貼り付けます。

Sub フィルタ内容変更連続印刷()

Dim i As Integer
　　For i = 1 To 47
　　　　Range("L2").Value = i
　　　　ActiveSheet.PrintOut
　　Next
End Sub

これでL2セルの値を１から４７まで変更させながら自動で印刷してくれます。

今回はL2の数字をマクロで変更し、L2の数字に対応する出身地をK2に表示させ、

K2に表示させた出身地でデータをフィルタリングしています。

※参照先やマクロで変更させる数字は必要に応じて変更してください。

その他、データ整理でよく使う関数についてもまとめています。

あわせて読みたい

PowerAutomateや 校務で使える Excel関数 IFS,COUNTIF,FILTER,UNIQUE,SORTBY, TRANSPOSE,SUBTOTAL,TEXTS... よく使うエクセルの関数をまとめました。 実際の使用例は以下のリンクからご覧ください。 こちら 【IFS,COUNTIF,FILTER】複数条件に合った生徒の抽出やカウント 　Forms...

あわせて読みたい

【差し込み印刷】１枚に複数レコードを挿入する方法 今回はこんな悩みを解決します。 差し込み印刷で無駄な余白が多すぎる！１枚に複数のレコードを挿入したい！ なんなら名刺サイズでもいいときってありますよね。早速や...

あわせて読みたい

Sway の使い方と活用事例 保護者への 情報発信用Webページ 今回はこんなお悩みを解決します。 クラスの様子や連絡などを保護者へ直接できたらな…。 そんな先生におすすめなのが Microsoft Sway です。簡単にクラスホームページが...