Sub myTranspose()
Dim arr As Variant
arr = Range("A1").Resize(1, 10000)
Dim ar4 As Variant
ReDim ar4(1 To 2500, 1 To 4)
Dim x As Integer
Dim y As Long
Dim h As Integer
h = 1
y = 1
For x = 1 To UBound(arr, 2)
ar4(y, h) = arr(1, x)
h = h + 1
If h > UBound(ar4, 2) Then
h = 1
y = y + 1
End If
Next
Range("A3").Resize(UBound(ar4, 1), UBound(ar4, 2)) = ar4
End Sub
Ольга Харьковская написал: Её нужно разбить на 4 столбца в 2500 строк
А как разбить нужно? Первые 2500 в первый столбец, вторые 2500 во второй столбец или первые 4 в первую строку нового вассива, вторые 4 во вторую строку и т.д.
Ольга Харьковская, цитировать нужно с умом, а не всё подряд. И названия формулировать нормально: Разбить ячейки - из такого названия можно понять задачу?