質問: "販売済" Then .RemoveItem (i - 1) End If Next End With End If
回答: なんとなくですが、処理の流れとしては、次のようになると思います。 1. リストボックスのアイテムでループ 2. アイテムの名前が顧客名列の何行目にあるか検索する 3. 顧客分類列の同じ行の値を取得する 4. 販売済ならRemoveItem コードで書くとこんな感じでしょうか(動作未確認) ``` With 対象のオブジェクト ' オブジェクト内アイテムを後ろからループ For i = .ListCount To 1 Step -1 ' 顧客名列を先頭からループ For r = 1 To Range("顧客名列").Count ' 顧客名がアイテムと同じか If Range("顧客名列").Item(r, 1) = .List(i) Then ' 同じ行にある顧客分類列の値が販売済みか If Range("顧客分類列").Item(r, 1) = "販売済" Then ' リストからアイテム削除 .RemoveItem (i) End If End If Next Next End With ```