excel - 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

高温高压