Опять сумма. Теперь при условии

[jungo]

Я извиняюсь, последнее время слишком активно задаю вопросы. Попросили у меня одно, а теперь сказали, что нужно "немного" другое. НЕМНОГО!?!?
К проблеме:
Прикрепил массив с макросом, который делает почти то, что надо до моего "НО!!!" ниже.

В столбце "Level" уровень сборки. (0 - конечный результат 1 - его прямые дети и т.д.).
В столбце "Name" имена.
В столбце "Father Name" имена сборок к которым относятся данные имена.
В столбце "work" разновидность работы.
Нужно напротив каждой сборки (напротив "Name") сосчитать сколько раз она повторяется в столбце "Father Name". НО!!!!!!

Если в столбце "work" присутствует слово "fantom" который тоже состоит из нескольких "Name". полученное количество нужно не написать в столбце "sum of names" a приплюсовать к сумме его "Father Name".
И отнять его самого, то есть минус один! (он не "Name") он невидимка состоящий из нескольких "Name".
Надеюсь всё понятно...
Заранее спасибо ОГРОМНОЕ ЗА ПОМОЩЬ!!!

[SAS888]

Не-а, не догоняю. Можно пример того, что нужно получить.

[jungo]

Думаю это значительно упростит.

[IgorGO]

См. вложение. Последний столбик дополнительный, без него не осилил.

Одну красивую формулу написать не удалось((.

[jungo]

IgorGO

Не удаётся открыть файл, показывает error. Может из за того что мой Эксель на иврите.Буду очень признателен если пересмотришь и перезальёшь?

[SAS888]

На сколько я правильно понял, то примерно так.
Запустите макрос "Fantom".

[IgorGO]

Опа!? Я так понмаю, распаковалось все без проблем? Проблемы возникли именно с xls-файлом?
А сейчас? (убрал имена диапазонов - были названы кирилицей, хотя я имена листов в исходнике, набранные явно не кирилицей, вижу, только не понимаю совсем)
на всякий случай во второй строке
в 7 колонке пишем

=ЕСЛИ(RC[-3]="fantom";СУММ((RC[-5]=R2C3:R498C3)*1);)+1

в 6 пишем

=СУММ((RC[-4]=R2C3:R498C3)*R2C7:R498C7)

жмем F2, Ctrl+Shift+Enter для каждой, размножаем ячейки вниз по списку.

[jungo]

Я в недоумении...
После распаковки не файл IgorGO не файл SAS888 не открывается без ошибки Microsoft.
После "авто-починки" эксель не показывает сам модуль (видимо стирает его).
Можно мне получить код в топике?

[SAS888]

Видимо, все-таки какая-то языковая несовместимость.
Поместите следующий код в модуль VBE. Затем запустите макрос "Fantom".

Sub Fantom()

    Dim x As Object, Fst As String, i As Long, j As Long
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
    Application.ScreenUpdating = False
        Set x = Columns("C").Find(what:=Cells(i, "B"), LookAt:=xlWhole)
        If Not x Is Nothing Then
            Fst = x.Address: j = 0
            Do
                j = j + 1
                Set x = Columns("C").FindNext(x)
            Loop While Fst <> x.Address
            Cells(i, "F") = j
        End If
    Next
    
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
        If Cells(i, "D") = "fantom" Then
            Set x = Columns("B").Find(what:=Cells(i, "C"), LookAt:=xlWhole)
            If Not x Is Nothing Then
                Cells(x.Row, "F") = Cells(x.Row, "F") + Cells(i, "F")
                Cells(i, "F").ClearContents
            End If
        End If
    Next

End Sub

[jungo]

SAS888
Да, это оно!!! супер! спасибо!

Есть два нюанса, один упущен, а второй просьба:

1. Нужно от полученного числа отнять сам "fantom", а сумму его "детей" оставить. Я написал в топике:

И отнять его самого, то есть минус один! (он не "Name") он невидимка состоящий из нескольких "Name".
Надеюсь всё понятно...

2. Можно всё таки оставить напротив "fantom" сумму его "детей" (она была в прошлом макросе)?

Огромное тебе спасибо! Ты меня спас!