Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отображение чисел между "от и до" по порядку, разделенных - - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отображение чисел между "от и до" по порядку, разделенных - (Макросы/Sub)
Отображение чисел между "от и до" по порядку, разделенных -
timo64uk Дата: Вторник, 14.12.2021, 19:18 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 1 ±
Замечаний: 0% ±

Добрый день, дамы и господа :D

Столкнулся с необходимостью выборки числового ряда, разделенного запятой (без пробелов) и тире, где
запятая это разграничение чисел друг от друга, а тире это указание на минимальное значение числа (слева от тире) и максимальное (справа от тире). Все числа целые.
Например:
числа в ячейке B2 "75-79,109-113,138-139" будут записаны в M2 как "75;76;77;78;79;109;110;111;112;113;138;139".

П.С. Название темы не полностью отражает суть вопроса, однако попытался раскрыть главную проблему, т.к. замена "," на ";" второстепенное (как мне показалось - хотя встроенный в эксель поисковик/заменитель отказался искать запятые. Поже прочитаю отчего это он так...).
К сообщению приложен файл: 5555.xlsx (12.6 Kb)


Сообщение отредактировал timo64uk - Вторник, 14.12.2021, 19:20
 
Ответить
СообщениеДобрый день, дамы и господа :D

Столкнулся с необходимостью выборки числового ряда, разделенного запятой (без пробелов) и тире, где
запятая это разграничение чисел друг от друга, а тире это указание на минимальное значение числа (слева от тире) и максимальное (справа от тире). Все числа целые.
Например:
числа в ячейке B2 "75-79,109-113,138-139" будут записаны в M2 как "75;76;77;78;79;109;110;111;112;113;138;139".

П.С. Название темы не полностью отражает суть вопроса, однако попытался раскрыть главную проблему, т.к. замена "," на ";" второстепенное (как мне показалось - хотя встроенный в эксель поисковик/заменитель отказался искать запятые. Поже прочитаю отчего это он так...).

Автор - timo64uk
Дата добавления - 14.12.2021 в 19:18
Апострофф Дата: Вторник, 14.12.2021, 20:25 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 444
Репутация: 122 ±
Замечаний: 0% ±

Excel 1997
[vba]
Код
Sub AAA()
Dim A$(), AA$(), I&, II&, R&
Columns("M").ClearContents
For R = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    A = Split(Cells(R, 2), ",")
    For I = 0 To UBound(A)
        AA = Split(A(I), "-")
        For II = AA(0) To AA(UBound(AA))
            Cells(R, "M") = Cells(R, "M") & ";" & II
        Next II
    Next I
    Cells(R, "M") = Mid$(Cells(R, "M"), 2)
Next R
End Sub
[/vba]


Сообщение отредактировал Апострофф - Вторник, 14.12.2021, 20:49
 
Ответить
Сообщение[vba]
Код
Sub AAA()
Dim A$(), AA$(), I&, II&, R&
Columns("M").ClearContents
For R = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    A = Split(Cells(R, 2), ",")
    For I = 0 To UBound(A)
        AA = Split(A(I), "-")
        For II = AA(0) To AA(UBound(AA))
            Cells(R, "M") = Cells(R, "M") & ";" & II
        Next II
    Next I
    Cells(R, "M") = Mid$(Cells(R, "M"), 2)
Next R
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 14.12.2021 в 20:25
timo64uk Дата: Среда, 15.12.2021, 09:41 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 1 ±
Замечаний: 0% ±

Цитата Апострофф, 14.12.2021 в 20:25, в сообщении № 2 ()
AAA

Спасибо, все работает. Восторг
 
Ответить
Сообщение
Цитата Апострофф, 14.12.2021 в 20:25, в сообщении № 2 ()
AAA

Спасибо, все работает. Восторг

Автор - timo64uk
Дата добавления - 15.12.2021 в 09:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отображение чисел между "от и до" по порядку, разделенных - (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!