Option Explicit

Sub ReplaceTextInCodeModules()

' Must add a reference to "Microsoft Visual Basic For Applications Extensibility 5.3"
' Also must set "Trust access to the VBA project object model"
' See the url below for more info on these.
' Based on code found at:
' Source: www.cpearson.com/excel/vbe.aspx Copyright 2013, Charles H. Pearson

Dim theWorkbook As Workbook
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim numLines As Long ' end line
Dim lineNum As Long
Dim thisLine As String
Dim message As String
Dim numFound As Long

Const FIND_WHAT As String = "RowsStart = 124"
Const REPLACE_WITH As String = "RowsStart = 150"

    numFound = 0

    'For Each theWorkbook In Application.Workbooks
        Set theWorkbook = ActiveWorkbook
        If theWorkbook.Name <> ThisWorkbook.Name Then
            If theWorkbook.HasVBProject Then
                Set VBProj = theWorkbook.VBProject
                'For Each VBComp In VBProj.VBComponents
                    Set VBComp = VBProj.VBComponents("Season")
                    Set CodeMod = VBComp.CodeModule

                    With CodeMod
                        numLines = .CountOfLines
                        For lineNum = 1 To numLines
                            thisLine = .Lines(lineNum, 1)
                            If InStr(1, thisLine, FIND_WHAT, vbTextCompare) > 0 Then
                                message = message & theWorkbook.Name & " | " & VBComp.Name & " | Line #" & lineNum & vbNewLine
                                .ReplaceLine lineNum, Replace(thisLine, FIND_WHAT, REPLACE_WITH, , , vbTextCompare)
                                numFound = numFound + 1
                            End If
                        Next lineNum
                    End With
                'Next VBComp
            End If
        End If
    'Next theWorkbook

    Debug.Print "Found: " & numFound
    If message <> "" Then
        Debug.Print message
    End If

End Sub

Sub GetSubText()
    Dim objVBProj As Object
    Dim sProcName As String, res As String
    Dim lProcLineNum As Long, lProcLinesCnt As Long, lProcKind As Long, vMdl
     
    sProcName = "КвазиИнтерполAll" 'имя процедуры или функции, которые ищем
    Set objVBProj = ActiveWorkbook.VBProject
    On Error Resume Next
     
    'цикл по всем модулям проекта(стандартные, классы, формы, листы, книги)
    For Each vMdl In objVBProj.VBComponents
        For lProcKind = 0 To 3
            lProcLineNum = vMdl.CodeModule.ProcStartLine(sProcName, lProcKind)
            If lProcLineNum > 0 Then
                lProcLinesCnt = vMdl.CodeModule.ProcCountLines(sProcName, lProcKind)
                'MsgBox lProcLinesCnt
                ChangeMe = vMdl.CodeModule.Lines(lProcLineNum, lProcLinesCnt)
                'Часть макроса которую хотим поменять
                Text1 = "RowsStart = 120"
                'Часть макроса на который хотим поменять
                Text2 = "RowsStart = 124"
                'в текстовой переменной производим замену нужного участка кода
                ChangeMe = Replace(ChangeMe, Text1, Text2)
                'записываем изменения в макрос
                vMdl.CodeModule.Lines(lProcLineNum, lProcLinesCnt) = ChangeMe
                'vMdl.CodeModule.ProcCountLines(sProcName, lProcKind) = lProcLinesCnt
                MsgBox ChangeMe
                Exit Sub
            End If
        Next
    Next
    
End Sub

Sub ChangeSubText()
'имя модуля для копирования
    sModuleName = "Season"
    On Error Resume Next
    'проект книги, из которой копируем модуль
    'Set objVBProj = ActiveWorkbook.VBProject
    Set objVBProj = ThisWorkbook.VBProject
    'необходимый компонент
    Set objVBComp = objVBProj.VBComponents(sModuleName)
    'Часть макроса которую хотим поменять
    Text1 = "RowsStart = 120"
    'Часть макроса на который хотим поменять
    Text2 = "RowsStart = 124"
    'objVBComp = Replace(objVBComp, Text1, Text2)
    objVBProj.VBComponents(sModuleName) = objVBComp.ReplaceLine(130, "RowsStart = 124")
End Sub

=ЕСЛИ(C5<>C22;1;0)

=ЕСЛИ(C5<>C23;1;0)

=ЕСЛИ(B3=0;ЕСЛИ(B13>=3;3;1);B13/B3)

    Range("B10").Select
    Cells.Find(What:="0,00", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate