Диапазон раскидать по ячейкам

[bysteps]

Здавствуйте, бью голову, не знаю как сделать!

есть ячейка ввида '55-59', можно ли как-то сделать последовательность целых чисел начаная с 55 и заканчивая max и записать в ячейки
т.е. в итоге должно получиться: 55 56 57 58 59.

и еще вопрос, можно ли программно на VBA транспонировать строку(если есть примерчик, было бы замечательно)

Спасибо заранее!

[kimtan]

По первому вопросу можно формулой массива, со всеми проверками:
=ЕСЛИ((ПСТР($A$1;ПОИСК("-";$A$1)+1;10)-ПСТР($A$1;1;ПОИСК("-";$A$1)-1)+1)<СТРОКА(A1);"";НАИМЕНЬШИЙ(СТРО КА(ИНДЕКС(A:A;ПСТР($A$1;1;ПОИСК("-";$A$1)-1)):ИНДЕКС(A:A;ПСТР($A$1;ПОИСК("-";$A$1)+1;10)));СТРОКА(A1)))
и растянуть вниз

[deni1982]

транспонирование

Sub Макрос1()

Range("A1:A22").Copy
Range("A33").PasteSpecial Transpose:=True

End Sub

это не я такой умный просто макрорекордер дал такой результат,
ты бы тоже смог

[aval]

Так лаконичнее:
Sub Макрос()
Range("A3:A18").Copy
Range("B3").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub

[Dophin]

Sub pp()
Dim s
Dim i As Long
Dim k As Long
s = Split([a1], "-")
k = 1
For i = Val(s(0)) To Val(s(UBound(s)))
Cells(1, k) = i
k = k + 1
Next i
End Sub

"55-59" в ячейке А1

[IgorGO]

и еще вариант(ы) формул, которые разбросают элементы диапазона Х-У по ячейкам в строке или в колонке.
Оцените компактность формулы.

[kimtan]

Производительность тоже иногда имеет значение

[bysteps]

Всем откикнувшимся огромное СПАСИБО,
осталось только скомпоновать мне все в VBA