Создание пользовательской формулы

[Squarded]

Здравствуйте!
Пишу формулу для облегчения работы, суть в том что она находит соответствие заданной в определенной ячейке строки в заданном столбце и если находит то суммирует ячейки сбоку от совпадений.
Я написал вот это

Function спецсумм(Текст As String, Диапазон As Range, сдвиг As String)
    
    Dim rCell As Range
   
    Dim vResult
Dim a As String
Dim b As Range
Dim Find As WorksheetFunction
   Dim Mid As WorksheetFunction
 
            For Each rCell In Диапазон
                
            a = WorksheetFunction.Mid(rCell, Find(Текст, rCell, 1), Len(Текст))
            b = a
            If a = Текст Then
                vResult = WorksheetFunction.SUM(rCell.Offset(0, сдвиг$), vResult)
            End If
        Next rCell


   спецсумм = vResult
End Function

Помогите, пожалуйста, привести ее в корректный вид

[Hugo121]

Может так?

Function спецсумм2(Текст As String, Диапазон As Range, сдвиг As String)
    Dim rCell As Range

    For Each rCell In Диапазон
        If rCell Like "*" & Текст & "*" Then спецсумм2 = спецсумм2 + rCell.Offset(0, сдвиг$)
    Next rCell

End Function

[Squarded]

Hugo121, спасибо огромное!

[Hugo121]

Вообще-то в данной задаче правильнее так:

Function спецсумм3(Текст As String, Диапазон As Range, сдвиг As String)
    Dim rCell As Range

    For Each rCell In Диапазон
        If Application.Trim(rCell) = Текст Then спецсумм3 = спецсумм3 + rCell.Offset(0, сдвиг$)
    Next rCell

End Function

т.к. Like с *, как и Ваша задумка с Find (а ещё Instr() можно использовать), найдёт соответствие и в строке " Возвратные расходы".
В общем, смотря какая задача в целом.