Страницы: 1
RSS
Как создать список годов в одной ячейки
 
Есть список наименований машин с диапазонами годов, нужно расписать в следующим столбце года через запятую, в ручную делать занимает уйму времени, когда у тебя таких 1000 строк, помогите найти решение.. пример прикрепил  
 
формула массива:
Код
=ОБЪЕДИНИТЬ(",";;СТРОКА(ИНДЕКС(C[-2];ЗНАЧЕН(ЛЕВБ(RC[-1];4))):ИНДЕКС(C[-2];ЗНАЧЕН(ПРАВБ(RC[-1];4)))))
Изменено: Ігор Гончаренко - 26.09.2022 20:27:32
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
UDF

Код
Function rasb(r)
    Dim u, i, s
    If InStr(1, r, "-") > 0 Then
        u = Split(r, "-")
        For i = u(0) To u(1)
            s = IIf(Len(s) = 0, i, s & ", " & i)
        Next i
         rasb = s
    End If
End Function
 
Можно ещё так, если такие формулы есть  :D
Код
=МАССИВВТЕКСТ(ПОСЛЕД(ПРАВБ(B2;4)-ЛЕВБ(B2;4)+1;1;ЛЕВБ(B2;4);1))
 
Цитата
написал:
UDF

Код
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10      Function   rasb(r)          Dim   u, i, s          If   InStr(1, r,   "-"  ) > 0   Then              u = Split(r,   "-"  )              For   i = u(0)   To   u(1)                  s = IIf(Len(s) = 0, i, s &   ", "   & i)              Next   i               rasb = s          End   If    End   Function   
 
Спасибо большое!  Скрипт работает!
 
Цитата
Msi2102 написал:
если такие формулы есть
формулы то есть, функций нет  :D
По вопросам из тем форума, личку не читаю.
 
Цитата
БМВ написал:
формулы то есть, функций нет
согласен, толку от формул если функций нет :D
Страницы: 1
Наверх