Суммирование по неполному совпадению

[alexvav]

В общих чертах :
Есть ли такая формула, что бы суммировала БЕЗ дополнительного поля?
В примере всё ясно будет.

[IgorGO]

нашлась такая... см.вложение

[alexvav]

только через массив? понял.

[vikttur]

Если данные в столбце А не перемешаны. Формула обычная (не массива):
=СУММ(ИНДЕКС(B1:B11;ПОИСКПОЗ("МКР-Н*";A1:A11;0)):ИНДЕКС(B1:B11;ПОИСКП ОЗ("МКР-Н*";A1:A11;0)+СЧЁТЕСЛИ(A1:A11;"МК Р-Н*")-1))

[alexvav]

ещё как перемешаны, но всё равно спасибо. уже сделал.

[VictorM]

Здравствуйте, уважаемые!
Решил не создавать новую тему, т.к. вопрос также о неполном совпадении.
Ищу у себя в заданном диапазоне строки, задаю образец для поиска

iText$ = "Ткань Категория"    'образец для поиска 1

И вот тут вопрос, как изменить, то что я написал, чтобы был поиск именно по неполному совпадению, независимо, что еще дальше написано в найденной строке после "Ткань Категория".
Спасибо.

[Hugo121]

Так самого поиска то ведь ещё нет - можно искать xlWhole, а можно

 Set rRndRng = ThisWorkbook.Sheets(1).Columns(3).Find(iText$, , xlValues, xlPart)

[VictorM]

да, спасибо, я примерно так и сделал.
Просто я хотел обойтись без Find (по некоторым причинам).
Т.е. указываю маску и ищу просто на совпадение перебором ячеек нужное значение.
Сделал вот так, здесь MsgBox просто для отладки, реально, там будет другой код.

iText$ = "Ткань Категория"    'образец для поиска 1
    Set poisk = ActiveSheet.UsedRange.Find(What:=iText$, LookIn:=xlValues, LookAt:=xlPart)
    For i = 1 To iCalc
        obraz1 = ActiveCell
        If obraz1 = poisk Then
            Call MsgBox("!", vbInformation, Application.Name)
            Set poisk = ActiveSheet.UsedRange.FindNext(After:=poisk)
        End If
        ActiveCell.Offset(1, 0).Activate
    Next i

Может с точки зрения профи и неправильно, но работает)

[Hugo121]

А если не найдёт?
Могу такой пример кода поиска по кругу предложить, может пригодится:

        Set x = target_.Columns(1).Find(temp, LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
        If Not x Is Nothing Then
            iFirstAddress = x.Address
            Do
                Set x = target_.Columns(1).FindNext(x)
                If target_.Cells(x.Row, 2).Value <> "" Then
                target_.Cells(x.Row, 2).Value = target_.Cells(x.Row, 2).Value & ", " & source_.Cells(cc.Row, 2).Value
                Else
                target_.Cells(x.Row, 2).Value = source_.Cells(cc.Row, 2).Value
                End If
            Loop While Not x Is Nothing And x.Address <> iFirstAddress
        End If

[VictorM]

А если не найдёт?

ну вообще-то там обязательно найдет, так данные устроены. А уж если не найдет, обработаем ошибку).

Могу такой пример кода поиска по кругу предложить, может пригодится:

А вот за пример спасибо, обязательно пригодится!!!