Dim re As Range, J As Long, jj As Long6 With Sheets("list").Range("a:a").CurrentRegion.Resize(, 15)
ReDim a(1 To .Rows.Count, 1 To 15)
For J = 1 To .Rows.Count
For jj = 1 To .Columns.Count
a(J, jj) = .Cells(J, jj).Text
Next
Next
End With
With ListBox1
.ColumnCount = 15
.ColumnWidths =...