Отбор строк перед пустыми

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Отбор строк перед пустыми (Формулы/Formulas)

kror

Дата: Четверг, 11.01.2018, 11:13 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Большая просьба помочь!
Имеется ли возможность отобрать в столбце только те строки со значением, которые находятся перед пустыми строками? В моем примере (3, 10, 15)
1 1
2 2
3 3
4
5
6
7 7
8 8
9 9
10 10
11
12
13
14 14
15 15
Заранее спасибо.

Ответить

sboy

Дата: Четверг, 11.01.2018, 11:24 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
как вы их хотите отобрать? скрыть не нужные? выделить цветом? выбрать в отдельный столбец?
приложите файл-пример как есть и как хочется.

Яндекс: 410016850021169

Ответить

kror

Дата: Четверг, 11.01.2018, 11:51 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Мне в общем-то без разницы, т.к. конечной целью является преобразования столбца чисел в перечень интервалов.
Исходные:
1
2
3
5
6
7
8
14
15
Должно получится:
1-3
5-8
14-15
Если кто-то подскажет другое решение буду благодарен.

Ответить

Pelena

Дата: Четверг, 11.01.2018, 11:57 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19511

Репутация: 4620 ±

Замечаний: ±

Excel 365 & Mac Excel

Готовое решение Получение интервалов из числовой последовательности

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

kror

Дата: Четверг, 11.01.2018, 12:18 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спасибо!
А какая это формула в русифицированной версии?

Ответить

китин

Дата: Четверг, 11.01.2018, 12:33 | Сообщение № 6

Группа: Модераторы

Ранг: Экселист

Сообщений: 7034

Репутация: 1079 ±

Замечаний: 0% ±

Excel 2007;2010;2016

это UDF, а не формула. код из статьи поместите в модуль листа

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

sboy

Дата: Четверг, 11.01.2018, 12:46 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

Репутация: 724 ±

Замечаний: 0% ±

Excel 2010

а я еще одну написал по примеру (как понял))
[vba]

Код

Function Преобразовать_В_Интервалы(r As Range)
    arr0_ = r.Value
    If Not IsArray(arr0_) Then Exit Function
        Dim arr_()
        ReDim arr_(1)
            For i = 1 To UBound(arr0_) + 1
                If Not arr0_(i, 1) = Empty Then
                    arr_(UBound(arr_)) = arr0_(i, 1)

                        Do
                            i = i + 1
                            If i > UBound(arr0_) Then Exit Do
                        Loop While arr0_(i, 1) <> Empty
                    arr_(UBound(arr_)) = arr_(UBound(arr_)) & "-" & arr0_(i - 1, 1)
                    ReDim Preserve arr_(UBound(arr_) + 1)
                End If
            Next
        ReDim Preserve arr_(UBound(arr_) - 1)
     Преобразовать_В_Интервалы = Join(arr_, ";")
End Function

[/vba]