根据他们的价值观VBA删除从列表框中项目(Removing items from listbox a

我试图删除用户表单列表框的所有项目，除了特定的值

可以说，我要删除我的列表框一切，除了“猫”和“狗”

我写：

For i = 0 To ListBox2.ListCount - 1
    If ListBox2.List(i) <> "Cat" or ListBox2.List(i) <> "Dog" Then
        ListBox2.RemoveItem i
    End If
Next 

出于某种原因，这是行不通的，我试图找到一个解决方案，但我不能。 这里有什么问题？

Answer 1:

使用向后循环：

For i = ListBox2.ListCount - 1 To 0 Step -1
    If ListBox2.List(i) <> "Cat" AND ListBox2.List(i) <> "Dog" Then
        ListBox2.RemoveItem i
    End If
Next 

，改变OR以AND您的IF语句

文章来源: Removing items from listbox according to their values VBA