如何将多列列表行项目与多列值excel vba一起移动到另一个列表框中

Question

尝试使用以下代码移动列表框项目。 它的工作，但它只有一个列值，列表框中总共有6列

 Private Sub ListBoxProSlt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 Dim ProList As String
    ProList = ListBoxProSlt.List(ListBoxProSlt.ListIndex)
    ListBoxProRec.AddItem ProList

End Sub

任何建议将所有列值移动到下一个列表框!!

Answer 1

使用循环，您可以将更多项目从一个列表添加到另一个列表 这里

 Private Sub ListBoxProSlt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 Dim ProList As String
 count=0
columnIndex = 0

For rowIndex  = 0 To ListBoxProSit.ListCount - 1
  count = count + ListBox1.List(rowIndex , columnIndex )
Next
 i=0
 do until i > count  
    ProList = ListBoxProSlt.List(i)
    ListBoxProRec.AddItem ProList
 i=i+1
loop

End Sub

我希望它能解决你的问题