- Sub test()
- Dim i&, arr, rng As Range, c As New Collection, brr()
- arr = Cells(1, 1).CurrentRegion.Value
- On Error Resume Next
- For i = 1 To UBound(arr)
- c.Add arr(i, 1), CStr(arr(i, 1))
- Next
- Debug.Print c.Count
- ReDim brr(1 To c.Count, 1 To 1)
- For i = 1 To c.Count
- brr(i, 1) = c(i)
- Next
- Columns("a:a").Clear
- Cells(1, 1).Resize(c.Count, 1) = brr
- End Sub
复制代码 |