リストポックス検索

いつもお世話になっております

リストポックス検索のやり方をおしえてくれませんでしょうか
下記のコードは検索など調べました。

Listbox4からListbox7
まであり、下記のようになっています。

Listbox4からListbox7　まで選択した結果を
抽出したのですが、わかる方おしえてくれませんでしょうか

下記のコードの部分が　 ListBox4と ListBox5のつなげ方がわかりません。

With ListBox4
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Dic.Add .List(i), ""
End If
Next
End With

If Dic.Count > 0 Then _
Rng.AutoFilter Field:=7, _
Criteria1:=Dic.keys, _
Operator:=xlFilterValues



エクセルのデータは
Ｂ列　　Ｃ列　　Ｄ列　　Ｅ列　　Ｆ列　　　　　Ｇ列　　　　　Ｈ列　　　Ｉ列
No 　名前 担当 　性別 血液型　 契約予定日　 担当 　　電話
33 福田 晴生 フクタ ハルオ 男 O 2021/4/1 近藤 090-1356-8171
34 田代 火呂絵 タシロ ヒロエ 女 O 2022/5/8 田中 070-2204-7522
36 加藤 凱次 カトウ カツジ 男 A 2022/6/8 加藤 070-6017-6911
39 中谷 美貴 ナカタニ ミキ 女 B 2022/4/1 佐藤 090-5652-8823
40 広瀬 貴雅 ヒロセ タカマサ 男 A 2022/8/8 工藤 090-0774-3804
43 小倉 亜依 オグラ アイ 女 O 2022/10/12 工藤 090-3935-1395
45 松崎 正宣 マツサキ マサノリ 男 B 2022/7/12 近藤

質問者からの補足コメント

• エクセルのデータの内容添付しました。

  
    補足日時：2022/06/19 21:34

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2022/06/19 23:01

こんな感じかな。

For Each myListBox In Array(ListBox4, Listbox5, Listbox6, Listbox7)
With myListBox
・
・
・
End With
Next myListBox

この回答へのお礼

ありがとうございました。

お礼日時：2022/06/19 23:05