Определенный диапазон чисел в одной ячейке

[unlakc]

Имеется ячейка "Год", в которой указаны года 1994-1999.
Необходимо сделать так, чтобы в соседней одной ячейке появилось 1994,1995,1996,1997,1998,1999.
Буду благодарен за помощь

[Serge 007]

Код Выделить Развернуть

Sub unlakc()
    Dim x As Long
    Dim w As Long
    Dim i As Long
    Dim txt As String
        x = CDbl(Left([a1], 4))
        w = CDbl(Right([a1], 4))
            For i = x To w
                txt = txt & i & ","
            Next i
            [b1] = txt
End Sub


[unlakc]

Огромной спасибо, отправил Вам на webmoney всё, что было на кошельке. Не подскажите, как сделать, чтобы скрипт применялся ко всему столбцу сразу. У меня около тысячи строк

[zs]

для 14 лет, если интервал больше добавьте слагаемых
=ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-1<0;"";(ЛЕВСИМВ(A1;4)+1)&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-2<0;"";ЛЕВСИМВ(A1;4)+2&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-3<0;"";ЛЕВСИМВ(A1;4)+3&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-4<0;"";ЛЕВСИМВ(A1;4)+4&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-5<0;"";ЛЕВСИМВ(A1;4)+5&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-6<0;"";ЛЕВСИМВ(A1;4)+6&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-7<0;"";ЛЕВСИМВ(A1;4)+7&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-8<0;"";ЛЕВСИМВ(A1;4)+8&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-9<0;"";ЛЕВСИМВ(A1;4)+9&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-10<0;"";ЛЕВСИМВ(A1;4)+10&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-11<0;"";ЛЕВСИМВ(A1;4)+11&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-12<0;"";ЛЕВСИМВ(A1;4)+12&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-13<0;"";ЛЕВСИМВ(A1;4)+13&",")&ЕСЛИ(ПРАВСИМВ(A1;4)-ЛЕВСИМВ(A1;4)-14<0;"";ЛЕВСИМВ(A1;4)+14&",")

[vikttur]

...ко всему столбцу сразу. У меня около тысячи строк

Покажите структуру данных в файле, строк 20.
Как выводить результат? В той же строке? Одним массивом для всех строк?

[Serge 007]

...отправил Вам на webmoney всё, что было на кошельке

Спасибо

...как сделать, чтобы скрипт применялся ко всему столбцу сразу. У меня около тысячи строк

См. вложение