建两个控件，如图：
写代码：
Private Sub CommandButton1_Click()
Dim x
For x = 1 To ListBox1.ListCount
If ListBox1.Selected(x) = True Then ListBox1.Selected(x) = False
Next x
End Sub
Private Sub UserForm_Activate()
ListBox1.List = Range("a1:a5").Value
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024