Как в 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?
прилагаю цифры которые убираются и по строкам лежат (цифры каждый раз могут быть разными поэтому хотелось бы многофункциональную помощь в этом деле)

@Alex77755 · 24.03.2016, 16:09

С3 загрузка не работает у меня

Не понятно что такое С3.
Загрузка: по нажатию зелёной овальной кнопки в ячейке С3 открывается меню выбора текстового файла
После выбора и нажатия кнопки загрузить в колонку С загружаются все блоки из текстового файла которые отмечены флажками. В порядке р.бр, алименты, подсудность (порядок вывода можно изменить) строки не сортируются. Выводятся ы том порядке, что были в блоках в текстовом файле.
Вывод можно подкорректировать. Пробелы убрать. Всё вывести в одну строку через запятую. Я делал как во входных файлах.

нам остается загнать в I загнать весь текст от начала до конца

Но там же были результаты после удаления С и F? Вывести полный список? А за ним как и после С и F две колонки с итогом и суммой?
сделаю как понял

@Alex77755 · 24.03.2016, 16:46

Как понял. Результаты текстовых файлов дублируются ы текстовые поля на листе (смотри колонки R-W)

@Golden777 · 24.03.2016, 18:28 **[ТС]**

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

Добавлено через 8 минут
Alex77755, на XP работает, то что надо, а Windows 8.1 code 64 bit там какие то ругания вышли) тестирую пока все супер идет

Добавлено через 7 минут
Alex77755, все есть единственное это не увидел
1-4, 7, 9, 33, 60, 66, 68, 73, 76, 77, 151, 155, 156, 176-178, 209, 221, 226, 233, 238, 240-244, 246, 282, 284, 292, 294, 306, 314, 319, 320-322, 331, 334-337, 341, 342, 398, 399, 407, 428, 440, 441, 443, 481, 483, 484, 485, 508, 509, 526-528, 549, 550
для раст брака через тире

Добавлено через 3 минуты
Alex77755, а за это нашу работу забракуют 565-566,
если есть
565, 566, 569, так и остается через тире такие пропускать нельзя
565, 566. 567, 569 тогда так 565-567, 569

Добавлено через 3 минуты
Alex77755,
для ячейки Q 27 правильно так, после запятой пробел цыфра-запятая-пробел
5, 6, 8, 10, 11, 13-32, 34-36, 38-59, 61-65, 69-72, 79-86, 88-150, 152, 158-167, 169-173, 175, 179-206, 208, 210-219, 222-225, 228, 234, 235, 237, 245, 248, 249, 253, 254, 256, 258, 260, 261, 264, 265, 268, 270, 272, 274, 276-279, 281, 283, 285-291, 295-305, 307-313, 316, 317, 323-325, 330, 332, 338-340, 343-385, 387-396, 400-406, 408-427, 430-436, 446, 448-458, 460, 461, 465-480, 482, 486-506, 510-524, 529-548, 557-563, 565, 566, 569-573

Добавлено через 5 минут
Alex77755, Только без р.бр (колонка G)
наоборот таи Только р.бр (колонка G)
все что в F столбце пропустить через тире цифры там не убираются, только тире ставим, рядом со столбиком

Добавлено через 25 секунд
а так все правильно

Добавлено через 2 минуты
Alex77755,
Вместо этого 5-6,8,10-32,34-59,61-65,67,69-72,74-75,78-150,152-154,157-175,179-208,210-220,222-225,227-232,234-237,239,245,247-281,283,285-291,293,295-305,307-313,315-318,323-330,332-333,338-340,343-397,400-406,408-427,429-439,442,444-480,482,486-507,510-525,529-548
Ставим это в столбике Q10
1-4, 7, 9, 33, 60, 66, 68, 73, 76, 77, 151, 155, 156, 176-178, 209, 221, 226, 233, 238, 240-244, 246, 282, 284, 292, 294, 306, 314, 319, 320-322, 331, 334-337, 341, 342, 398, 399, 407, 428, 440, 441, 443, 481, 483, 484, 485, 508, 509, 526-528, 549, 550

1-550 (здесь мы пишем так у себя в нарядах. но надо понимать так, что это от 1 до 550 дел по раст. бр)
65 дел

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

@Alex77755 · 24.03.2016, 19:17

Windows 8.1 code 64 bit

Это всё из-за мелкомягких: они в 64 бит. ввели новые типы данных и там надо по другому декларировать функции АПИ. а текстовые файлы в кодировке UTF8

для раст брака через тире

в такой формат конвертируются только результаты после удаления соответствующих списков из общего списка
Исходные данные не конвертируются: Я уже устал догадываться о ваших желаниях
Объсните вразумительно: в колонки C, F, I загружать из текстового файла уже в сокращённом виде?

@Golden777 · 24.03.2016, 19:42 **[ТС]**

Alex77755, с вами с каждым днем все умнеешь и умнеешь )

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

Добавлено через 7 минут
Только это сделать
столбец F правильно, только рядом не то вот и все
1
2
3
4
7
9
так должно быть в столбце G
1-4
7
9
33
60
66
68
73
76
77
151
155
156
176-178
209
221
226
233
238
240-244
246

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

@Alex77755 · 24.03.2016, 20:11

С столбце G сейчас уже результат от вычитания C от B

Добавлено через 1 минуту
У вас же в заголовке написано

Итог. B-C

Я так и сделал

@Golden777 · 24.03.2016, 20:42 **[ТС]**

Alex77755, да было, но не расчитал, что там не правильно, одним словом этот момент мною был как то упущен

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

@Alex77755 · 24.03.2016, 21:05

Сделал загрузку из текстовика сразу в сокращенном виде в колонки с(без р.бр), F(только р.бр), I(полностью всё из текстовика). Все списки загружаются в отсортированном по возрастанию виде.
D, G, J = результат вычитания от B соответствующих колонок в сокращённом виде
E, H, K = в количественном виде.
В текстовых полях все результаты в сокращённом виде через запятую с пробелом. Параллельно в текстовиках с индексами соответствующих номеров колонок
переделывать больше не буду. Если что - код открыт: "Пилите, Шура!"

@Golden777 · 24.03.2016, 21:27 **[ТС]**

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

Добавлено через 3 минуты
Alex77755, Ого вот это мастер, это Лучшее, что я видел
как мне исправить это 76-77, они идут раздельно и что прописать

@Alex77755 · 24.03.2016, 21:53

замени процедуру

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Private Sub pokazat(s, c, Optional c1 As Boolean = True)
Dim r, i, j, t, pr, ii, rz, u, k, rez_t, SS
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    Set rz = CreateObject("Scripting.Dictionary")
   
    With ActiveSheet
        .Range(.Cells(4, c), .Cells(10000, c + 1)).ClearContents
        u = s.keys
        ii = 3
        For Each i In s.keys
            If Len(j) = 0 Then
                j = i: s = i
                k = 1
            Else
                If i - j = 1 Then
                    j = i: pr = True: k = k + 1
                Else
                    ii = ii + 1
                    If s <> j Then
                        If Abs(s - j) = 1 Then
                            .Cells(ii, c) = s
                            If c1 Then .Cells(ii, c + 1) = 1
                            SS = IIf(Len(SS) = 0, s, SS & ", " & s)
                            ii = ii + 1
                            .Cells(ii, c) = j
                            If c1 Then .Cells(ii, c + 1) = 1
                            SS = IIf(Len(SS) = 0, j, SS & ", " & j)
                        Else
                            .Cells(ii, c) = s & "-" & j
                            If c1 Then .Cells(ii, c + 1) = k
                            SS = IIf(Len(SS) = 0, s & "-" & j, SS & ", " & s & "-" & j)
                        End If
                    Else
                        .Cells(ii, c) = s
                        If c1 Then .Cells(ii, c + 1) = k
                        SS = IIf(Len(SS) = 0, s, SS & ", " & s)
                    End If
                    j = i: s = i: k = 1: pr = False
                End If
            End If
        Next i
        ii = ii + 1
        If s <> j Then
            If Abs(s - j) = 1 Then
                If c1 Then .Cells(ii, c + 1) = 1
                SS = IIf(Len(SS) = 0, s, SS & ", " & s)
                ii = ii + 1
                .Cells(ii, c) = j
                If c1 Then .Cells(ii, c + 1) = 1
                SS = IIf(Len(SS) = 0, j, SS & ", " & j)
            Else
                .Cells(ii, c) = s & "-" & j
                If c1 Then .Cells(ii, c + 1) = k
                rz(IIf(pr, s & "-" & j, s)) = 0
                SS = IIf(Len(SS) = 0, s & "-" & j, SS & ", " & s & "-" & j)
            End If
        Else
            .Cells(ii, c) = s
            If c1 Then .Cells(ii, c + 1) = k
            rz(IIf(pr, s & "-" & j, s)) = 0
            SS = IIf(Len(SS) = 0, s, SS & ", " & s)
        End If
    End With
    
    Лист1.Shapes("TextBox" & c).OLEFormat.Object.Text = SS
    Open ActiveWorkbook.Path & "\Результат_" & c & ".txt" For Output As 1
    Print #1, SS
    Close
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

@Sasha_Smirnov · 24.03.2016, 22:01

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

Alex77755, а за это нашу работу забракуют 565-566

А подрядчик кто?

@Golden777 · 24.03.2016, 23:17 **[ТС]**

Sasha_Smirnov, Гос Управление Мирового суда по делам и архивам. ее главная представительница) на 8 марта все время подарок ей собираем, чтоб не была жестокой)))

Добавлено через 40 секунд
Alex77755, Спасибо попробую

@Alex77755 · 25.03.2016, 01:44

на 8 марта все время подарок ей собираем

Не по теме:

Задолго начали, однако, собирать! Почти за год! Видимо очень жестокая главная представительница

@Golden777 · 25.03.2016, 01:59 **[ТС]**

Alex77755, ага это я к следующему марту готовлюсь... в этом году, как то нас пронесло с этим, видимо лучше поработали в отличии от прошлого года
тема решена, щас отпишусь как код работает

Добавлено через 8 минут
Alex77755, может подскажешь как работать в Windows 64 bit, ошибка лезет

@Narimanych · 25.03.2016, 02:02

Golden777,

Вот еще вариант...
Инструкции внутри.
Надеюсь, что помог.

ЗЫ Не судите строго

( относится к мастерам VBA)... за монстра....
Спасибо....

@Golden777 · 25.03.2016, 02:13 **[ТС]**

Alex77755, выбивает ошибку текст грузится, а в Excel пусто после нажатия GO-GO

@Golden777 · 25.03.2016, 02:17 **[ТС]**

вот файл после вами предложенных исправлений

@Golden777 · 25.03.2016, 02:19 **[ТС]**

Narimanych, щас гляну, что там, спасибо

@Narimanych · 25.03.2016, 02:22

Golden777,
Пожалуйста

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

Narimanych, пока не понятно мне как там нужно работать, может на примере любые цифры вобьете, и я не смог достичь результата

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	24.03.2016, 18:28 [ТС]
	Alex77755, при запуске выбивает ошибку в начале Function Добавлено через 8 минут Alex77755, на XP работает, то что надо, а Windows 8.1 code 64 bit там какие то ругания вышли) тестирую пока все супер идет Добавлено через 7 минут Alex77755, все есть единственное это не увидел 1-4, 7, 9, 33, 60, 66, 68, 73, 76, 77, 151, 155, 156, 176-178, 209, 221, 226, 233, 238, 240-244, 246, 282, 284, 292, 294, 306, 314, 319, 320-322, 331, 334-337, 341, 342, 398, 399, 407, 428, 440, 441, 443, 481, 483, 484, 485, 508, 509, 526-528, 549, 550 для раст брака через тире Добавлено через 3 минуты Alex77755, а за это нашу работу забракуют 565-566, если есть 565, 566, 569, так и остается через тире такие пропускать нельзя 565, 566. 567, 569 тогда так 565-567, 569 Добавлено через 3 минуты Alex77755, для ячейки Q 27 правильно так, после запятой пробел цыфра-запятая-пробел 5, 6, 8, 10, 11, 13-32, 34-36, 38-59, 61-65, 69-72, 79-86, 88-150, 152, 158-167, 169-173, 175, 179-206, 208, 210-219, 222-225, 228, 234, 235, 237, 245, 248, 249, 253, 254, 256, 258, 260, 261, 264, 265, 268, 270, 272, 274, 276-279, 281, 283, 285-291, 295-305, 307-313, 316, 317, 323-325, 330, 332, 338-340, 343-385, 387-396, 400-406, 408-427, 430-436, 446, 448-458, 460, 461, 465-480, 482, 486-506, 510-524, 529-548, 557-563, 565, 566, 569-573 Добавлено через 5 минут Alex77755, Только без р.бр (колонка G) наоборот таи Только р.бр (колонка G) все что в F столбце пропустить через тире цифры там не убираются, только тире ставим, рядом со столбиком Добавлено через 25 секунд а так все правильно Добавлено через 2 минуты Alex77755, Вместо этого 5-6,8,10-32,34-59,61-65,67,69-72,74-75,78-150,152-154,157-175,179-208,210-220,222-225,227-232,234-237,239,245,247-281,283,285-291,293,295-305,307-313,315-318,323-330,332-333,338-340,343-397,400-406,408-427,429-439,442,444-480,482,486-507,510-525,529-548 Ставим это в столбике Q10 1-4, 7, 9, 33, 60, 66, 68, 73, 76, 77, 151, 155, 156, 176-178, 209, 221, 226, 233, 238, 240-244, 246, 282, 284, 292, 294, 306, 314, 319, 320-322, 331, 334-337, 341, 342, 398, 399, 407, 428, 440, 441, 443, 481, 483, 484, 485, 508, 509, 526-528, 549, 550 1-550 (здесь мы пишем так у себя в нарядах. но надо понимать так, что это от 1 до 550 дел по раст. бр) 65 дел Добавлено через 5 минут Alex77755, если не считать это все великолепно оформлено, супер, мыслитель извиняюсь что немного поднадоел, но работа кипит как говорится, а еще и рождаемость надо увеличивать))) на все время надо на будущее оставить ))) 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	24.03.2016, 19:42 [ТС]
	Alex77755, с вами с каждым днем все умнеешь и умнеешь ) Добавлено через 2 минуты Alex77755, загрузка с одного файла, только чтобы не обрабатывала р. бр ей нужно только тире ей придать в рядом стоящем столбце Добавлено через 7 минут Только это сделать столбец F правильно, только рядом не то вот и все 1 2 3 4 7 9 так должно быть в столбце G 1-4 7 9 33 60 66 68 73 76 77 151 155 156 176-178 209 221 226 233 238 240-244 246 и считай готово, за исключением маленьких исключений запятые с пробелом ну и так далее выше мной описан, которые думаю легко мною будут решаемы 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	24.03.2016, 20:42 [ТС]
	Alex77755, да было, но не расчитал, что там не правильно, одним словом этот момент мною был как то упущен Добавлено через 1 минуту Alex77755, вычитание не производим там, я щас понял что не прав был 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	24.03.2016, 21:27 [ТС]
	Alex77755, куда переделывать я уже по описанию вижу что все готово Мегамозг наш, спасибо мне бы такое точно не в гору было Добавлено через 3 минуты Alex77755, Ого вот это мастер, это Лучшее, что я видел как мне исправить это 76-77, они идут раздельно и что прописать 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	24.03.2016, 23:17 [ТС]
	Sasha_Smirnov, Гос Управление Мирового суда по делам и архивам. ее главная представительница) на 8 марта все время подарок ей собираем, чтоб не была жестокой))) Добавлено через 40 секунд Alex77755, Спасибо попробую 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	25.03.2016, 01:59 [ТС]
	Alex77755, ага это я к следующему марту готовлюсь... в этом году, как то нас пронесло с этим, видимо лучше поработали в отличии от прошлого года тема решена, щас отпишусь как код работает Добавлено через 8 минут Alex77755, может подскажешь как работать в Windows 64 bit, ошибка лезет 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	25.03.2016, 02:13 [ТС]
	Alex77755, выбивает ошибку текст грузится, а в Excel пусто после нажатия GO-GO 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	25.03.2016, 02:19 [ТС]
	Narimanych, щас гляну, что там, спасибо 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,452
	25.03.2016, 02:22
	Golden777, Пожалуйста 0

@Golden777 2 / 2 / 0 Регистрация: 03.03.2016 Сообщений: 326
	25.03.2016, 02:22 [ТС]
	Narimanych, пока не понятно мне как там нужно работать, может на примере любые цифры вобьете, и я не смог достичь результата 0