Sub zamena()

    Application.DisplayAlerts = False
    
        Dim SR As Range
        Set SR = Application.InputBox("viberite diapazon dlya zameni", "zamena", Type:=8)
        
        FR = SR.Formula
        AdSR = SR.Address
        
        Z1 = InputBox("Cto zamenyaem")
        Z2 = InputBox("Chem zamenyaem")
        
        For i = LBound(FR) To UBound(FR)
            FR(i, 1) = Replace(FR(i, 1), Z1, Z2)
        Next i
        
        SR.Formula = FR
    
    Application.DisplayAlerts = True

End Sub

СУММЕСЛИМН([B][Диапазон суммирования][/B];[B][диапазон_условия1][/B];[B]ИЛИ("*"[/B][B];С12)[/B]; .... остальные условия тем же макаром)

Public Function STMS(depo As String, serii As String) As String

DepoArr = Array("белово", "белово", "белово", "омск", "омск", "омск", "омск", "тайга", "тайга", "тайга", _
                "бугульма", "бугульма", "бугульма", "кинель", "пенза", "пенза", "пенза", "пенза", "пенза", "самара", _
                "самара", "стерлитамак", "стерлитамак", "ульяновск", "ульяновск", "ульяновск", "ульяновск", "уфа", "бекасово", "бекасово", _
                "бекасово", "бекасово", "бекасово", "бекасово", "орел", "орехово", "орехово", "орехово", "орехово", "рыбное", _
                "рязань", "смоленск", "лихоборы", "егоршино", "егоршино", "егоршино", "егоршино", "пермь", "свердловск", "свердловск", _
                "свердловск", "свердловск", "свердловск", "смычка", "чусовское", "чусовское", "чусовское", "чусовское", "ярославль", "ярославль", _
                "ярославль", "ярославль", "златоуст", "златоуст", "златоуст", "златоуст", "карталы", "карталы", "карталы", "карталы", _
                "карталы", "курган", "курган", "курган", "курган", "курган", "оренбург", "оренбург", "оренбург", "оренбург", _
                "оренбург", "орск ", "челябинск", "челябинск", "челябинск", "челябинск", "челябинск", "белгород", "белово", "свердловск")
 
SeriiArr = Array("вл10", "тэм18", "тэм2", "2эс6", "вл10", "тэм18", "тэм2", "2эс6", "вл10", "тэм2", _
                 "тэм7", "тэ10", "тэм2", "вл10", "тгк2", "вл10", "тэ10", "тэм18", "тэм2", "чмэ3", _
                 "чс2", "чмэ3", "тэ10", "м62", "тэ10", "тэм2", "тэп70", "вл10", "тэм14", "м62", _
                 "тэм7", "чмэ3", "вл10", "вл11", "вл11", "тэм7", "чмэ3", "вл10", "вл11", "вл10", _
                 "тэм7", "тэм7", "тэм7", "тэм7", "вл11", "тэм18", "тэм2", "вл11", "2эс6", "тэм7", _
                 "вл11", "тэм18", "тэм2", "вл11", "тэм7", "чмэ3", "тэм18", "тэм2", "тэм14", "чмэ3", _
                 "вл10", "вл11", "2эс6", "чмэ3", "вл10", "тэ10", "вл80", "чмэ3", "тэ10", "вл60", _
                 "эп1", "2эс6", "тэм7", "чмэ3", "вл10", "вл11", "тэм14", "чмэ3", "тэ10", "тэп70", _
                 "тэ116", "чмэ3", "2эс6", "тэм7", "чмэ3", "тэ10", "чс7", "тэм14", "эс10", "эс10")

For i = 0 To UBound(DepoArr)
    If InStr(1, depo, DepoArr(i), vbTextCompare) > 0 And InStr(1, serii, SeriiArr(i), vbTextCompare) > 0 Then
        STMS = "да"
        Exit Function
    Else
        STMS = "нет"
        Exit Function
    End If
Next End Function

Sub Sravnenie()
 
Dim ACell As Range
Dim BCell As Range
Dim CCell As Range
 
For Each ACell In Application.Workbooks("Книга 1.xslm").Sheets(1). _
Range("D1", Cells(Rows.Count, 4).End(xlUp))


    For Each BCell In Application.Workbooks("Книга 2.xls").Sheets(1). _
    Range("D2", Cells(Rows.Count, 4).End(xlUp))
     
     If BCell.Value = ACell.Value Then

    BCell.Interior.ThemeColor = xlThemeColorLight1
    ACell.Interior.ThemeColor = xlThemeColorLight1
     
     End If
     
    Next
Next
 
End Sub