=H73-J73-J218-J183

=H73-J73 - ИНДЕКС(J:J;ПОИСКПОЗ(218;A:A;)) - ИНДЕКС(J:J;ПОИСКПОЗ(183;A:A;))

=Ф.ТЕКСТ(I73)

Option Explicit

Sub mainLoop()
    'запускать эту процедуру
    Dim cell As Range
    
    'в самой книге делается активным лист обработки (просто встаем на него)
    'а тут задается адрес диапазона применения обработки на этом листе
    For Each cell In Range("I4:I320").Cells
        cell.Activate
        Call oneCellFormulaTransformation
    Next cell
End Sub

Sub oneCellFormulaTransformation()
    Dim strFormula  As String
    Dim lngRow      As Long
    Dim arrAddress  As Variant
    Dim strCellAddr As String
    Dim arrCellAddr As Variant
    Dim i           As Integer
    Dim digits      As Integer
        
    lngRow = ActiveCell.Row
    strFormula = ActiveCell.Formula
    strFormula = _
        Replace(Replace( _
        Replace(Replace( _
        Replace(Replace( _
        Replace(Replace( _
        Replace(Replace( _
        Replace(strFormula, _
                "=", "|"), _
                "-", "|"), "+", "|"), _
                ";", "|"), ",", "|"), _
                "(", "|"), ")", "|"), _
                "*", "|"), "/", "|"), _
                "<", "|"), ">", "|")
    arrAddress = Split(strFormula, "|")
    strFormula = ActiveCell.Formula
    
    'спешно добавленный обратный цикл по числу знаков номера строки (digits)
    'чтобы корректно обрабатывать встретившуюся формулу типа =МИН(I7;I72)
    'т.е. сначала заменить более длинный I72, а затем более короткий I7
    'неоптимально чудовищно, но работает все равно бодро :)
    'по-хорошему, здесь нужна просто сортировка массива, но где ж ее взять по-быстрому
    For digits = 7 To 1 Step -1
        For i = LBound(arrAddress) To UBound(arrAddress)
            If arrAddress(i) <> "" Then
                strCellAddr = Application.ConvertFormula(arrAddress(i), xlA1, xlA1, xlAbsRowRelColumn)
                arrCellAddr = Split(strCellAddr, "$")
                If UBound(arrCellAddr) = 1 Then
                    If Len(arrCellAddr(1)) = digits Then
                        If CLng(arrCellAddr(1)) <> lngRow Then
                            strFormula = Replace(strFormula, _
                    arrCellAddr(0) & arrCellAddr(1), _
                    "INDEX(" & arrCellAddr(0) & ":" & arrCellAddr(0) & ",MATCH(" & arrCellAddr(1) & ",A:A,))")
                        End If
                    End If
                End If
            End If
        Next i
    Next digits
    ActiveCell.NumberFormat = "General"
    ActiveCell.Formula = strFormula
End Sub