Обработка данных в таблице

@Freken Bok · Регистрация: 23.02.2013

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

Добрый день. Подскажите реально ли решить задачу в экселе. Попробую объяснить. Есть очень большая таблица с данными. Примерный вид указан ниже. Формула или макрос должны просматривать массив данных и находить данные которые больше 15, но при этом они должны идти подряд. Если одиночное значение (как в примере 28), то его не учитывать. Примерно должно получиться так:
25 24 23
18 20 19
26 22 29 .

Подскажите, в каком направлении действовать? Можно ли решить задачу без макросов?
25
24
23
1
2
28
3
18
20
19
5
6
7
26
22
29

@АЕ · 29.04.2020, 11:42

Freken Bok, результат в тот же лист?

@Freken Bok · 29.04.2020, 11:48 **[ТС]**

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

Сообщение от АЕ

Freken Bok, результат в тот же лист?

Лучше да, но не очень принципиально

@AlexM · 29.04.2020, 12:40

Файл пример покажите с исходными данными и что хотите получить.

@Freken Bok · 29.04.2020, 13:47 **[ТС]**

Столбец A, B, C это то что дано. Столбец F, это то что должно получиться. В нём значения больше 23. В дальнейшем у каждой группы ячеек нужно посчитать минимум, максимум и количество ячеек. Пока мне нужно хотя бы сделать столбец F. Напоминаю, что одиночные значения нужно пропускать.

@АЕ · 30.04.2020, 11:21

Freken Bok, казалось бы простая задачка... ан нет - надо помнить сразу 3 смежных значения для анализа

Вчера некогда было. сегодня соорудил подпрограмму.

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
 Sub example_2() 'одномерный массив , индексация всегда с 1
 AnalizST = "C1"
 sv = 6 'вывод в столбец
 d = 23 ' допуск
    Dim x
    With Range(AnalizST, Cells(Rows.Count, 3).End(xlUp)) 'из столбца
     x = WorksheetFunction.Transpose(.Value)
    End With
 t1 = x(1): t = x(1)
    For i = 1 To UBound(x)
    Select Case x(i)
    Case Is > d
        If t > d Then
            If t1 > d Then
            Cells(i - 1, sv) = t
            End If
        Else
            If t1 < d Then
            Cells(i, sv) = x(i)
            End If
        End If
    Case Is < d
        If t > d Then
            If t1 > d Then
            Cells(i - 1, sv) = t
            End If
        End If
    
    End Select
    t1 = t 'пред предыдущее
    t = x(i) 'предыдущее
    Next
 End Sub

Pelena · 30.04.2020, 12:01

Вариант формулами

@АЕ · 30.04.2020, 12:34

Pelena, хорошая работа. Однако одиночные значения пропускает.
Думаю, что ТС из двух сможет слепить себе нормальное решение, поскольку минимумы и максимумы я вообще не считал.

Pelena · 30.04.2020, 13:28

Сообщение от АЕ

Однако одиночные значения пропускает

Точно, про это я забыла. Исправила

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Freken Bok 0 / 0 / 0 Регистрация: 23.02.2013 Сообщений: 9

	Обработка данных в таблице 29.04.2020, 11:37. Показов 858. Ответов 8 Метки excel, макросы excel, таблица excel (Все метки) Добрый день. Подскажите реально ли решить задачу в экселе. Попробую объяснить. Есть очень большая таблица с данными. Примерный вид указан ниже. Формула или макрос должны просматривать массив данных и находить данные которые больше 15, но при этом они должны идти подряд. Если одиночное значение (как в примере 28), то его не учитывать. Примерно должно получиться так: 25 24 23 18 20 19 26 22 29 . Подскажите, в каком направлении действовать? Можно ли решить задачу без макросов? 25 24 23 1 2 28 3 18 20 19 5 6 7 26 22 29 0

@АЕ ᴁ © 4159 / 2448 / 508 Регистрация: 13.12.2016 Сообщений: 8,327 Записей в блоге: 5
	29.04.2020, 11:42
	Freken Bok, результат в тот же лист? 0

@AlexM 2904 / 1718 / 705 Регистрация: 04.09.2015 Сообщений: 3,445
	29.04.2020, 12:40
	Файл пример покажите с исходными данными и что хотите получить. 0

@АЕ ᴁ © 4159 / 2448 / 508 Регистрация: 13.12.2016 Сообщений: 8,327 Записей в блоге: 5
	30.04.2020, 12:34
	Pelena, хорошая работа. Однако одиночные значения пропускает. Думаю, что ТС из двух сможет слепить себе нормальное решение, поскольку минимумы и максимумы я вообще не считал. Миниатюры 0