excel - 根据其值VBA从列表框中删除项目

Question

我正在尝试删除用户表单列表框中的所有项目，但特定值除外

假设我想删除列表框中的所有内容，除了“Cat”和“Dog”

我写:

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陈述