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

Question

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

我想删除列表框中的所有内容，除了＆＃34; Cat＆＃34;和＆＃34;狗＆＃34;

我写道：

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