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

Dim lstSource As ListBox
Dim lstDestination As ListBox

Set lstSource = Worksheets("Sheet1").ListBoxes("ListBox1")
Set lstDestination = Worksheets("Sheet1").ListBoxes("ListBox2")

Dim selectedRows() As Variant
Dim i As Long

ReDim selectedRows(lstSource.ListCount - 1)

For i = 0 To lstSource.ListCount - 1
    If lstSource.Selected(i) Then
        selectedRows(i) = i
    End If
Next i

Dim selectedColumns() As Variant
Dim j As Long

ReDim selectedColumns(lstSource.ColumnCount - 1)

For j = 0 To lstSource.ColumnCount - 1
    selectedColumns(j) = lstSource.Column(j, 0)
Next j

Dim k As Long

For k = 0 To UBound(selectedRows)
    If Not IsEmpty(selectedRows(k)) Then
        lstDestination.AddItem
        For j = 0 To UBound(selectedColumns)
            lstDestination.List(lstDestination.ListCount - 1, j) = lstSource.List(selectedRows(k), j)
        Next j
    End If
Next k