Sub test()
Dim x, i As Long, a(), i As Long
x = Split(Range("a1").Value, ",")
If UBound(x) > 5000 Then
ReDim a(1 To UBound(x) +1, 1 To 1)
For i = 0 To UBound(x)
a(i + 1,1) = x(i)
Next
Range("b1").Resize(UBound(a,1)).Value = a
Else
Range("b1").Resize(UBound(x)+1).Value = Application.Transpose(x)
End If
End Sub
Sub test(), a(), i As Long
Dim x, i As Long
x = Split(Range("a1").Value, ",")
If UBound(x) > 5000 Then
ReDim a(1 To UBound(x) +1, 1 To 1)
For i = 0 To UBound(x)
a(i + 1,1) = x(i)
Next
Range("b1").Resize(UBound(a,1)).Value = a
Else
Range("b1").Resize(UBound(x)+1).Value = x
End If
End Sub
Sub test()
Dim x, a(), i As Long
x = Split(Range("a1").Value, ",")
If UBound(x) > 5000 Then
ReDim a(1 To UBound(x) + 1, 1 To 1)
For i = 0 To UBound(x)
a(i + 1, 1) = x(i)
Next
Range("b1").Resize(UBound(a, 1)).Value = a
Else
Range("b1").Resize(UBound(x) + 1).Value = x
End If
End Sub