Формулой?  
Макросом наверное так - Split(value,"-"), затем к первому элементу прибавляем по 1 и формируем строку, пока не достигнем второго элемента.

У меня такой вариант, выгрузка в С:  
 
Option Explicit  
 
Sub tt()  
Dim iLastRow As Long  
Dim cc, z As Long, x As Long, txt As String  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
 
For Each cc In Range("a2:a" & iLastRow)  
z = --Split(cc, "-")(0)  
x = --Split(cc, "-")(1)  
txt = Split(cc, "-")(0)  
Do While z < x  
txt = txt & "," & z + 1  
z = z + 1  
Loop  
cc.Offset(, 2) = txt  
Next  
End Sub

Спасибо за помощь. Тема закрыта

:-)  iLastRow - "всехная"

Уважаемые гуру Юрий и Игорь,  
не спорьте,ваши решения похожи как однояйцевые близнецы.  
И в обоих упущен один и тот же момент, часто встречающийся в документах с перечислением: возможность того, что в одной из обрабатываемых макросами ячеек может быть и одно значение, а не перечисление нескольких через дефис. Да и разделитель может быть не дефис, а, например, многоточие.  
Кроме того, в общем случае в одной ячейке может быть перечислено и несколько диапазонов через запятую или точку с запятой. Например: 2-5;7-9;14-17  
Поэтому, ИМХО, для универсальности решения неплохо было бы UDF сделать, которой можно было бы задать символы разделители "и т.д." (etc) и "а также" (as_well)  
Я бы и сам дополировал такую UDF для своей "копилки", но что-то никак не соображу, как обработать единичное значение и перечисление значений...  
 
 
=====  
76576

Вернее так с одиночным:  
 
For Each cc In Range("a2:a" & iLastRow)  
If UBound(Split(cc, "-")) > 0 Then  
txt = Split(cc, "-")(0)  
x = --Split(cc, "-")(1)  
z = --txt  
Do While z < x  
z = z + 1  
txt = txt & "," & z  
Loop  
Else  
txt = cc.Value  
End If  
cc.Offset(, 2) = txt  
Next  
 
Ну а разделители и разделители групп можно задать в параметрах, и сперва бить по группам, затем в группах.  
Но такое городить лениво, да и не интересно...

{quote}{login=Alex_ST}{date=27.09.2010 04:53}{thema=}{post}Юрий и Игорь,  
не спорьте, <...> в обоих упущен один и тот же момент, часто встречающийся в документах с перечислением: возможность того, что в одной из обрабатываемых макросами ячеек может быть и одно значение, а не перечисление нескольких через дефис. Да и разделитель может быть не дефис{/post}{/quote}  
Алекс, я думал, что большего зануды, чем я, тут не найти :-))  
В примере было по две группы, разделитель - дефис... Чего ещё выдумывать?  
Сказал бы автор: значение может быть одиночным, разделитель может быть любой... Тогда бы и решение было другим. Резюме: бан на 7 дней.

{quote}{login=Юрий М}{date=27.09.2010 07:50}{thema=Re: }{post}{quote}Резюме: бан на 7 дней.{/post}{/quote}  
Что-то я не понял, какие из правил форума я нарушил?  
За что это бан?  
За попытку расширить область применения разрабатываемого макроса с узко ограниченной примером топик-стартера до охватывающей большинство часто встречающихся случаев подобного перечисления? — Значит, подстраивать разрабатываемые макросы под постоянно уточняемые запросы стартера можно бесконечно, а указать на то, что запрос далеко не полон - нет?

Станешь серьёзным, когда, прийдя утром недопроснувшись на работу и вооружившись чашечкой кофейку, первым же делом идёшь на любимую Планету и вдруг видишь, что тебя грозятся забанить ни за что, ни про что... Это что же, мне весь день (и хорошо если один!)без любимой игрушки на работе торчать???  
Да за такие шуточки в приличных местах ...  
В общем, как в том анекдоте: "Ну и шуточки у тебя, боцман... Торпеда-то мимо прошла!"  
Ну, нельзя же так шутить, Юрий...

Да алекс прав. У меня в ячейках задано несколько диапазонов и еще отдельно через запятую написано: например: 4-16,25,33,35-40. Но я подумад что так задавать вопрос будет уже совсем жестоко по отношению к профи. Я просто поделил диапазоны по ячейкам преобрабовал и все сцепил обратно в кучу.

Дополнил макрос. Получился безобразный монстр, но как-то работает :). Использовать в крайнем случае.  
Лучше наверное сделать UDF с выбором разделителей..., заодно и лишнее повыкидывать.  
Алекс, делай свой вариант, этот не смотри :)  
 
Sub tt()  
Dim iLastRow As Long  
Dim cc, a, aa, z As Long, x As Long, txt As String, ccc As String, txtOut As String  
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row  
 
For Each cc In Range("a2:a" & iLastRow)  
ccc = Replace(cc, " ", "")  
a = Split(ccc, ",")  
If UBound(a) > 0 Then  
   For Each aa In a  
       If UBound(Split(aa, "-")) > 0 Then  
       txt = Split(aa, "-")(0)  
       x = --Split(aa, "-")(1)  
       z = --txt - 1  
           Do While z < x  
           z = z + 1  
               If txtOut = "" Then  
                   txtOut = z  
               Else  
                   txtOut = txtOut & "," & z  
               End If  
           Loop  
       Else  
           If txtOut = "" Then  
               txtOut = aa  
           Else  
               txtOut = txtOut & "," & aa  
           End If  
       End If  
   Next  
Else  
If txtOut = "" Then  
txtOut = ccc  
Else  
txtOut = txtOut & "," & ccc  
End If  
End If  
cc.Offset(, 2) = txtOut: txtOut = ""  
Next  
 
End Sub

И вовсе не Квазимодо получится если 3х4=12 строк убрать  
Я, пожалуй, его "причешу" и из него ЮДФ-ку буду делать в обед.

А может лучше подход Юрия развить - у него вроде короче код получиться должен?

Ну что сказать - умыл :)