vba中listbox如何同时删除选择的多行

利用循环，从listbox第一个list开始对是否选中进行判断，如果是选中状态，就从listbox中移除这一条。详细代码如网友回答：
Private Sub ColDelCmd_Click()
For i = 0 To ListBox2.ListCount - 1
If i < ListBox2.ListCount Then
If ListBox2.Selected(i) Then'Selected属性为判断listbox是否被选中
ListBox2.RemoveItem (i)'removeitem为移除改list
i = i - 1
End If
End If
Next
End Sub

打开它的MultiSelect属性 可以选择多个项啊
那你遍历所有选中项，再删除不就可以了？
我的是C# 这是思路，代码就不贴了。

Private Sub ColDelCmd_Click()

For i = 0 To ListBox2.ListCount - 1
If i < ListBox2.ListCount Then
If ListBox2.Selected(i) Then
ListBox2.RemoveItem (i)
i = i - 1
End If
End If
Next

End Sub

没看明白你的问题