Question

请教，Excel VBA中列表框使用问题。谢谢！

有两个列表框，如何实现左右移动项目。包括单个项目、多个项目和全部项目的移动。谢谢。

Answer 1

贴来的：
Private Sub ListBox1_Change()

Dim Mydata()

AA = ListBox1.ListCount - 1

ReDim Mydata(AA, 1)

Mydata = ListBox1.List()
ListBox2.List() = Mydata

For i = ListBox1.ListCount - 1 To 0 Step -1
If Not ListBox1.Selected(i) Then ListBox2.RemoveItem i
Next
End Sub

追问

谢谢您了。
经使用存在两个问题，请继续指教下。
1）只能将左侧的一个拷贝到右侧，即在选择第二个时，刚才的那个消失了；
2）左侧没有删除，也就是没有移动，而是拷贝了。

追答

refrush啊