Прошу знатоков помочь, задача трудная. Под силу только сильным логикам.

[Retiree]

На прилагаемой схеме прямые, они накладываются друг на друга. Нужна формула для подсчета длины участка без учета наложений.
Из схемы видно, что длина участка равна 40. Файл xls прилагается.

[DV68]

Если разрывов не бывает, то просто:

Код Выделить Развернуть

=МАКС(C2:C9)-МИН(B2:B9)

[kuklp]

 
=МАКС(B2:C9)-МИН(B2:C9)

[Retiree]

=МАКС(B2:C9)-МИН(B2:C9)

Спасибо за быстрый ответ.
Разрывы есть, мой косяк, думал, что они особо не будут влиять.
Это сильно повлияет на формулу?

[DV68]

Нет, если нужны только максимум и минимум.
Если есть разрыв(ы), то вопрос - разрывы считать?
Или считать каждый участок и выбрать максимальный?

[kuklp]

ЮДФ для общей длины:

Код Выделить Развернуть

Public Function MyCount&(r As Range)
    Dim a, i&, j&
    a = r
    ReDim b(Application.Max(a))
    For i = 1 To UBound(a)
        For j = a(i, 1) To a(i, 2)
            b(j) = 1
        Next j, i
    MyCount = Application.CountA(b) - 1
End Function

[Retiree]

Нет, если нужны только максимум и минимум.
Если есть разрыв(ы), то вопрос - разрывы считать?
Или считать каждый участок и выбрать максимальный?

Вот в этом то и дело, разрывы не должны учитываться. И не должны учитываться захлесты.

[kuklp]

Вы мой пример видели?

[Retiree]

Вы мой пример видели?

Видел, спасибо.
Мне он не совсем понятен, а мне бы хотелось самому все понять.
Попробую обкатать на реальных данных.
Результат сообщу позже.

[Михаил С.]

Вы мой пример видели?

Серег, чет у тебя не сходится...
Если я правильно понял задачу.

зы. Вообще-то для длин ноль не считается. Тогда вообще должно быть 37 а не 40

[kuklp]

Миш, ты будешь смеяться, но я открыл твой файл, выделил D11, нажал F2, потом Enter и смотри скрин. А в моем файле так уже посчитано. Не знаю, что ты там делал, что у тебя посчитало 40

зы. Вообще-то для длин ноль не считается.

Как так? Ты рулеткой меряешь начиная с первого сантиметра?

[Михаил С.]

А у меня в твоем файле не срабатывает ни F9, ни F2-Enter. Все равно сорок показывает. Да и в моем тоже.

[Михаил С.]

зы. Вообще-то для длин ноль не считается.

Как так? Ты рулеткой меряешь начиная с первого сантиметра?

Я имею ввиду, что если считать количество чисел от 0 до 40, то будет 41, а если длину - то 40. В моем примере нулевой столбец лишний.

[kuklp]

Миш, а попробуй прогнать формулу по шагам. Похоже, у тебя события не срабатывают. На названии формулы в коде нажми F9. Строка окрасится в коричневый. Потом поменяй любую цифру в проверяемом массиве.

[kuklp]

Чтоб на каждый чих дергалась, после названия функции в коде можно вставить:
Application.Volatile