Sub SetListBoxWidth(lst As MSForms.ListBox, rngHeader As Range)
    '设置列宽 根据单元格宽度 rngHeader 根据单元格列宽设置 listbox列宽
    Dim i
    ReDim arr(1 To rngHeader.Columns.Count)
    For i = 1 To rngHeader.Columns.Count
        arr(i) = rngHeader.Columns(i).ColumnWidth * 5
    Next
    lst.ColumnWidths = Join(arr, ";")
End Sub