Sub ListToRng(lst As MSForms.ListBox, rng As Range)
    ' 把一个listbox控件 选中的多行数据 输出到指定rng区域(左上角)
    Dim i, j, k
    ReDim arr(0 To lst.ListCount - 1, 0 To lst.ColumnCount - 1)
    
    For i = 0 To lst.ListCount - 1    '循环行
        If lst.Selected(i) Then    '判断选中的行
            For j = 0 To lst.ColumnCount - 1    '循环列 写入结果
                arr(k, j) = lst.List(i, j)
            Next
            k = k + 1
        End If
    Next
    
    If k > 0 Then    '只有选中行不为空时才会输出
        rng.Resize(k, UBound(arr, 2) + 1) = arr
    End If
End Sub