Как в Excel сделать функция для быстрого подсчета цифр через тире

@Golden777 · Регистрация: 03.03.2016

Студворк — интернет-сервис помощи студентам

Вот пример, хочу это сделать в Excel
нужно быстро решить это, так как их очень много, забирает время

есть цифры от-по: 1-412
надо убрать
1a) 1, 2, 3, 12, 25, 30, 31, 33, 34, 38, 41, 42, 43, 70, 71, 72, 74, 75, 77, 78, 80, 82, 84, 85, 97, 111, 122, 123, 125, 126, 135, 137, 138, 139, 141, 142, 144, 204, 212, 213, 214, 230, 239, 240, 243, 249, 250, 251, 255, 256, 270, 271, 274, 298, 299, 300, 301, 302, 323, 333, 335, 336, 347, 350, 351, 352, 353, 354, 355, 356, 372, 373, 374, 375, 376, 377, 386, 388, 391, 392, 397, 398, 399, 400, 403, 409, 410, 411

чтобы вышло
1b) Номера от 4 по 412 итого 324, это было подсчитано в текстовом Akelpad, но долго по времени
4-11, 13-24, 26-29, 32, 35-37, 39, 40, 44-69, 73, 76, 79, 81, 83, 86-96, 98-110, 112-121, 124, 127-134, 136, 140, 143, 145-203, 205-211, 215-229, 231-238, 241, 242, 244-248, 252-254, 257-269, 272, 273, 275-297, 303-322, 324-332, 334, 337-346, 348, 349, 357-371, 378-385, 387, 389, 390, 393-396, 401, 402, 404-408, 412

к примеру на 1 лист не вмещается все
подсчитать тогда две части
1) 4-11, 13-24, 26-29, 32, 35-37, 39, 40, 44-69, 73, 76, 79, 81, 83, 86-96, 98-110, 112-121, 124, 127-134, 136, 140, 143, 145-203, 205-211, 215-229, 231-238
2) 241, 242, 244-248, 252-254, 257-269, 272, 273, 275-297, 303-322, 324-332, 334, 337-346, 348, 349, 357-371, 378-385, 387, 389, 390, 393-396, 401, 402, 404-408, 412

324 дел (№ 4-412)

2) Номера от 1 по 409
1, 3, 12, 25, 30, 34, 41-43, 70-72, 74, 77, 111, 126, 135, 137-139, 141, 144, 204, 212, 214, 230, 239, 243, 249, 255, 256, 271, 298, 323, 336, 353, 355, 375-377, 388, 409

42 дел (№ 1-409)

3) соединить
324+42
чтобы получить совмещение
№ 1, 3-30, 32, 34-37, 39-74, 76, 77, 79, 81, 83, 86-96, 98-121, 124, 126-141, 143-212, 214-239, 241-249, 252-269, 271-273, 275-298, 303-332, 334, 336-346, 348, 349, 353, 355, 357-371, 375-385, 387-390, 393-396, 401, 402, 404-409, 412
итого 366 дел

можно решить задачу чуть быстрее в Excel?
прилагаю цифры которые убираются и по строкам лежат (цифры каждый раз могут быть разными поэтому хотелось бы многофункциональную помощь в этом деле)

@Golden777 · 25.03.2016, 18:53 **[ТС]**

Alex77755, понятно, мне до таких умов расти и расти

@Alex77755 · 25.03.2016, 21:40

Не уверен, но как-то так.
Если что не так - простите! Устамший был: переливал винчик.
Если что не так - завтра (возможно) поправлю

@Golden777 · 25.03.2016, 22:53 **[ТС]**

Alex77755, Спасибо большоею лучшего ожидать и не стоит все высшем уровне, Считаем ты Гений на этом сайте

Добавлено через 13 минут
Alex77755, Идеальнее быть не может. для вывода своего варианта названий текстовиков, я смогу же отредактировать в коде, каким именем подписать названия текстовиков выпуская на выходе

Добавлено через 15 минут
Alex77755, ах да, колонку бы чисто для алиментов присобачить где нибудь, точно такую как для расторжения брака через тире с подсчитанным количеством, их мы тоже печатаем и формируем, вообще бы облегчило мне жизнь и не без того насыщенную делами, вот это было бы вообще идеально
соответственно с выводом в текстовик (это самый сложный этап в моей работе, там точным очень надо быть)

Добавлено через 7 минут
Alex77755, А так судя по всей проделанной работе, Молодчага очень даже круто

@Alex77755 · 26.03.2016, 20:07

ты Гений на этом сайте

До гения мне "как до Москвы не карачках" в детстве говорили.

для вывода своего варианта названий текстовиков,

Конечно можно! файл создаётся здесь:

Visual Basic
1
2
3
    Open ActiveWorkbook.Path & "\Результат_" & c & ".txt" For Output As 1
    Print #1, SS
    Close

В имени файла участвует переменная C (& c &)
Если хотите создавать файлы с разными именами, то, как вариант, можно применить Select case

колонку бы чисто для алиментов присобачить где нибудь

Да нет проблем присобачить или прикошачить!
Проблема в кодировке. Или в структуре файла. Раз с кодировкой вопрос решается сложно с разнобитных системах, то самый простой вариант: сохранение структуры файла. Т.е.
1. в текстовике обязательно присутствие определённого набора блоков. Даже без названия сверху или снизу. Блоки отделены друг от друга пустыми строками не менее 2 (больше 2 пустых строк ни на что не влияет. программой предусмотрено уже)
2. Первый сверху всегда р.бр
3. последний всегда полный список дел
4. предлагаю добавить алименты в качестве предпоследнего блока. если алиментов нет, то вместо них вставляется любая текстовая строка. Главное условие: выполнения 1 пункта

@Golden777 · 26.03.2016, 23:10 **[ТС]**

Alex77755,

Сообщение от Alex77755

4. предлагаю добавить алименты в качестве предпоследнего блока. если алиментов нет, то вместо них вставляется любая текстовая строка. Главное условие: выполнения 1 пункта

алименты всегда будут более 10 дел с этим проблемы нет, изменяй структуру если надо под алименты, будем приспосабливаться к новым условиям составления данных, думаю все на этом.. как решишь так будет

Добавлено через 4 минуты
Alex77755,

Сообщение от Alex77755

Блоки отделены друг от друга пустыми строками не менее 2 (больше 2 пустых строк ни на что не влияет. программой предусмотрено уже)

да я это уже заметил, и согласен со всеми условиями решения вопроса

Добавлено через 3 минуты
Alex77755,

Сообщение от Alex77755

Open ActiveWorkbook.Path & "\Результат_" & c & ".txt" For Output As 1 Print #1, SS Close

попробую если с папкой вывод, то Folder думаю писать надо спереди

Добавлено через 6 минут
Alex77755,

Сообщение от Alex77755

Open ActiveWorkbook.Path & "\Результат_" & c & ".txt" For Output As 1 Print #1, SS Close

вот примерно так, мне такой вариант устраивает вывода

папка Мировой суд это я сам пропишу
папки от су1 ... - ... 10
нужно создать, чтоб подхватывал со строки из Excel из 10 вариантов написания автоматически копировала то, что написано в ячейке A1, количество тоже брало с ячеек где произошел подсчет

\Мировой суд\су7\1. Раст.брака (4-367) 256 дел.txt

вот такой выход текстовика. чтоб не запутаться в файлах

как это примерно сделать

@Alex77755 · 27.03.2016, 17:01

Алименты = 2 блок. Как и были в тестовом файле

@Golden777 · 28.03.2016, 00:46 **[ТС]**

Alex77755, Run time error '76' при загрузке

Добавлено через 2 минуты
Alex77755, и при очистке ошибка вылазит

Visual Basic
1
2
3
4
5
6
7
Sub Очистить_исходный_список()
Dim i, s: s = Split("2,3,4,6,7,9,10,12,13", ",")
    For i = 0 To UBound(s)
          Лист1.Shapes("TextBox" & s(i)).OLEFormat.Object.Text = SS
    Next i
    [b4..n10000].ClearContents
End Sub

Добавлено через 37 секунд
Alex77755, здесь SS

Добавлено через 29 секунд
Alex77755, Считалка 14 будет более удачной) 13 не хочет

@Alex77755 · 28.03.2016, 01:52

14!

@Golden777 · 29.03.2016, 01:21 **[ТС]**

Alex77755, вааа, вот это да наконец решили!!! ты молодец, никто мне не смог так помочь, отлично, Огромное спасибо

Добавлено через 22 часа 38 минут
Alex77755, версия 14 не правильно посчитала, 12 версия была точной

Добавлено через 16 минут
Alex77755, алименты правильно,
дела без р.бр без алиментов и подсудности и нет дел - не правильно подсчет
дела только без алиментов и нет дел тоже не правильно

@Golden777 · 29.03.2016, 02:12 **[ТС]**

Alex77755, Улучшил Считалка 12+ не хватает подсчета только алиментов
Чтобы посчитать можно с столбца С при загрузке отсеять подсудности и нет дел все что ниже алиментов, чтобы вышло 38

P.S. в 14 версии сразу изначально не правильно подгружало в столбец С.... меньше чем должно было быть

@Golden777 · 29.03.2016, 02:34 **[ТС]**

Alex77755, Пардон там кое где подправил еще, осталось вывод организовать алиментов и сверить с моими примерами на основе теста
все прислал

@Alex77755 · 29.03.2016, 07:58

дела без р.бр без алиментов и подсудности и нет дел - не правильно подсчет

выделяются как и было заказано в отдельные группы:
1. р.бр - первый блок
2. алименты - второй блок
3. общий исходный список - последний блок
4. все остальные дела(подсудность, нет дел и прочие если будут) идут общим списком.
Остальное подпилите под свои нужды самостоятельно.

@Golden777 · 29.03.2016, 08:36 **[ТС]**

Alex77755, ладно обойдемся без алиментов, что пилить если 14 версия в корне отличается и не то что нужно выполняет, кроме алиментов, р бр и общего списка, в 12 бы дописать колонку только алименты, больше ничего не просил по другому

@Alex77755 · 29.03.2016, 08:47

Нужно внятно описывать задачу и давать корректные исходные данные.
Алименты отделены в 9 колонку и в TextBox9

Добавлено через 1 минуту
Колонка С = Без р.бр и алим.

@Golden777 · 29.03.2016, 09:53 **[ТС]**

Alex77755, я же прислал файлы и показал на правильных примерах в чем отличия 12й от 14й, пропусти в 12й и 14й увидишь разные результаты

Добавлено через 1 минуту
Alex77755, притом 12я на 100 процентов точная, а в 14 с добавлением колонки алименты, почему то остальная обработка нарушилась

Добавлено через 1 минуту
Alex77755, я имею ввиду количество дел не то

@Alex77755 · 29.03.2016, 17:42

Golden777,
Найди (у меня она 179) с "Set ubr4"
Не поменял индекс. 9 на 12
Надо так:

Visual Basic
1
 Set ubr4 = Get_Spis(.Range("L1").Resize(.Cells(.Rows.Count, 12).End(xlUp).Row).Value)

@Golden777 · 29.03.2016, 18:56 **[ТС]**

Alex77755, хорошо

@Golden777 · 30.03.2016, 02:10 **[ТС]**

Narimanych, Решил попробовать вашу функцию Преобразования, модернизировал, но использовать не смог так нашлись некоторые недостатки
5-6 пишет через тире и еще несколько ... описание в файле, там есть просьба о исправлении некоторых существенных на мой взгляд без которого невозможно использовать в работе
также подсчет от 1-600

Файл с тестом в вложении

@Golden777 · 30.03.2016, 03:30 **[ТС]**

Alex77755, один показатель исправился И_без Всего(6-564) 430 - правильно
осталось без алиментов и подсудности (вместе с нет дел) на 507 исправить, в 12 версии она была а этой нет

Добавлено через 2 минуты
Alex77755, в С почему то загружается 38 вместо 58 как в 12 й версии было, вот отсюда оно и неправильно считает для получения результата

Добавлено через 6 минут
Alex77755,
столбцы, так должно быть
C Без р.бр 58
D Без всего кроме р.бр 507
E 565 - 58 = 507 507 дел итого

а в 14ой неправильно
CDE
38
527
527

Добавлено через 19 минут
Alex77755, к сожалению сам не нахожу где исправить. Это последнее исправление

Добавлено через 9 минут
Alex77755, такие вот проблемки

@Alex77755 · 30.03.2016, 09:49

почему то загружается 38 вместо 58 как в 12 й версии было

По тому что всего дел 169, алиментов 51, р.бр 80
169-51-80 =? У меня как и в файле 38. Мотивируйте почему должно быть 58?

Новые блоги и статьи Все статьи Все блоги /
[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?
Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	25.03.2016, 18:53 [ТС]
	Alex77755, понятно, мне до таких умов расти и расти 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	25.03.2016, 22:53 [ТС]
	Alex77755, Спасибо большоею лучшего ожидать и не стоит все высшем уровне, Считаем ты Гений на этом сайте Добавлено через 13 минут Alex77755, Идеальнее быть не может. для вывода своего варианта названий текстовиков, я смогу же отредактировать в коде, каким именем подписать названия текстовиков выпуская на выходе Добавлено через 15 минут Alex77755, ах да, колонку бы чисто для алиментов присобачить где нибудь, точно такую как для расторжения брака через тире с подсчитанным количеством, их мы тоже печатаем и формируем, вообще бы облегчило мне жизнь и не без того насыщенную делами, вот это было бы вообще идеально соответственно с выводом в текстовик (это самый сложный этап в моей работе, там точным очень надо быть) Добавлено через 7 минут Alex77755, А так судя по всей проделанной работе, Молодчага очень даже круто 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	29.03.2016, 01:21 [ТС]
	Alex77755, вааа, вот это да наконец решили!!! ты молодец, никто мне не смог так помочь, отлично, Огромное спасибо Добавлено через 22 часа 38 минут Alex77755, версия 14 не правильно посчитала, 12 версия была точной Добавлено через 16 минут Alex77755, алименты правильно, дела без р.бр без алиментов и подсудности и нет дел - не правильно подсчет дела только без алиментов и нет дел тоже не правильно 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	29.03.2016, 08:36 [ТС]
	Alex77755, ладно обойдемся без алиментов, что пилить если 14 версия в корне отличается и не то что нужно выполняет, кроме алиментов, р бр и общего списка, в 12 бы дописать колонку только алименты, больше ничего не просил по другому 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	29.03.2016, 08:47
	Нужно внятно описывать задачу и давать корректные исходные данные. Алименты отделены в 9 колонку и в TextBox9 Добавлено через 1 минуту Колонка С = Без р.бр и алим. 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	29.03.2016, 09:53 [ТС]
	Alex77755, я же прислал файлы и показал на правильных примерах в чем отличия 12й от 14й, пропусти в 12й и 14й увидишь разные результаты Добавлено через 1 минуту Alex77755, притом 12я на 100 процентов точная, а в 14 с добавлением колонки алименты, почему то остальная обработка нарушилась Добавлено через 1 минуту Alex77755, я имею ввиду количество дел не то 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	29.03.2016, 18:56 [ТС]
	Alex77755, хорошо 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	30.03.2016, 03:30 [ТС]
	Alex77755, один показатель исправился И_без Всего(6-564) 430 - правильно осталось без алиментов и подсудности (вместе с нет дел) на 507 исправить, в 12 версии она была а этой нет Добавлено через 2 минуты Alex77755, в С почему то загружается 38 вместо 58 как в 12 й версии было, вот отсюда оно и неправильно считает для получения результата Добавлено через 6 минут Alex77755, столбцы, так должно быть C Без р.бр 58 D Без всего кроме р.бр 507 E 565 - 58 = 507 507 дел итого а в 14ой неправильно CDE 38 527 527 Добавлено через 19 минут Alex77755, к сожалению сам не нахожу где исправить. Это последнее исправление Добавлено через 9 минут Alex77755, такие вот проблемки 0