Строчные значения в столбик

[Iskin]

Здравствуйте всем!
Есть: 1293573, 1293645, 1293603, 1293399, 1293401, 1293369 и т.д.
Надо:
1293573
1293645
1293603
1293399
1293401
1293369
....

Как это дело можно автоматизировать?

[nilem]

Например,

Sub iskin()
Dim x, y(), i&
x = Split([a1], ",")
ReDim y(0 To UBound(x), 1 To 1)
For i = 0 To UBound(x)
    y(i, 1) = x(i)
Next
[a2].Resize(i).Value = y
End Sub

[kuklp]

Скопировать, спецвставка-транспонировать. Если вся строка в одной ячейке, перед копированием - текст по столбцам.

[R Dmitry]

еще, так можно

[a1].Resize(UBound([a1].CurrentRegion.Value, 2)) = Application.Transpose([a1].CurrentRegion.Value)

[SAS888]

Если исходные значения находятся в одной ячейке (например, "A1"), то можно так:

Sub Main()
    a = Split([A1], ", ")
    [A1].Resize(UBound(a) + 1).Value = Application.Transpose(a)
End Sub

[Serge 007]

Сообщение от Iskin

Здравствуйте всем!
Есть: 1293573, 1293645, 1293603, 1293399, 1293401, 1293369 и т.д.
Надо:
1293573
1293645
1293603
1293399
1293401
1293369
....

Как это дело можно автоматизировать?

Функцией ТРАНСП()

[vikttur]

Много решений, хороших и разных

=ИНДЕКС($A$1:$AA$1;СТРОКА(1:1))