Excel VBA拖放

Question

我在找一个可行的解决方案时遇到了一些困难（一直在寻找2天）。 希望你能帮我弄明白。

目的 - 我想使用VBA来拖放列表框 之间的文本（见图片）

注意：我知道有枢轴奇才已经，我中号不那么感兴趣，他们（长的故事）

问题 有没有，你知道的，可以帮助我M任何解决方案“列A”到任何其他列表框？

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

Answer 1

除了我上面的评论，这里是最简单的方法。

创建一个带有2个列表框和1个命令按钮的用户窗体，如下图所示。

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

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