Excel VBA拖放

我有一些困难find一个可行的解决scheme（一直在寻找2天）。 希望你能帮我弄明白。

目的 – 我试图用VBA在列表框之间拖放文本（见图）

注意 ：我知道已经有枢轴奇才了，我对他们不是很感兴趣（长篇小说）

问题是否有解决scheme可以帮助我将“列A”移动到其他任何列表框？

如果您不知道解决scheme，博客或网站也可能会有所帮助。

Answer 1

进一步我上面的评论是最简单的方法来做到这一点。

创build一个用户窗体2个列表框和1个命令button，如下图所示。

并将此代码粘贴到用户窗体代码区域

Dim i As Long Private Sub UserForm_Initialize() For i = 1 To 10 ListBox1.AddItem i Next i End Sub Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Please select an item from listbox1" Exit Sub End If ListBox2.AddItem ListBox1.List(ListBox1.ListIndex) ListBox1.RemoveItem (ListBox1.ListIndex) End Sub 

HTH