应该是这样吧，先建一个窗体，一个listbox1,两个commandbutton，一个textbox1，代码如下：
Private Sub CommandButton1_Click()
With ListBox1
.Clear
For i = 3 To ActiveSheet.Range("A65536").End(xlUp).Row
.AddItem Cells(i, 1)
Next i
End With
End Sub
Private Sub CommandButton2_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
TextBox1 = TextBox1 & ListBox1.List(i)
End If
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024