Excel VBA拖放

Question

我在寻找可行的解决方案时遇到了一些困难（现在已经找了2天）。 希望你能帮助我解决这个问题。

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

注意：我知道已经有Pivot Wizards，我对它们不感兴趣（长篇故事）

问题 您知道的任何解决方案可以帮助我将“A列”移动到任何其他列表框吗？

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

Answer 1

除此之外，我在上面的评论是最简单的方法。

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

并将此代码粘贴到Userform Code区域

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