=ЕСЛИ(C2<A2;C2;МАКС(A2*0,98;B2))

Sub Макрос3()
'
' Макрос3 Макрос
'
    Dim SourceWB As Workbook, DestWB As Workbook
    Dim SourceSheet As Worksheet, DestSheet As Worksheet
    Dim SourceFileName As String, DestFileName As String
    SourceFileName = "C:\Users\OLEGAS\Desktop\Замены.xlsx"
    Const SourceSheetName As String = "Лист1"
    Const DestSheetName As String = "Замены"
    Set SourceWB = Workbooks.Open(SourceFileName)
    Set SourceSheet = SourceWB.Sheets(SourceSheetName)
    Set DestSheet = ThisWorkbook.Sheets(DestSheetName)
    SourceSheet.Cells.Copy
    DestSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
    SourceWB.Close SaveChanges:=False
    Set SourceSheet = Nothing
    Set DestSheet = Nothing
    Set SourceWB = Nothing
    Set DestWB = Nothing
End Sub

=СУММПРОИЗВ((A:A=A2)*C:C*D:D)/СУММЕСЛИ(A:A;A2;C:C)

Range("J:M").Replace "#НД", "", 2

Range("J:M").Replace What:="#НД", Replacement:="", LookAt:=2

If Range("J:M").Replace("#НД", "", 2) Then
End If

Dim a
a = Range("J:M").Replace("#НД", "", 2)

Sub Макрос4()
Dim errRn As Range
    For Each ccell In Range("J:M")
        If IsError(ccell) Then
            If errRn Is Nothing Then
                Set errRn = ccell
            Else
                Set errRn = Union(errRn, ccell)
            End If
        End If
    Next ccell
    If Not errRn Is Nothing Then
        'Значение для замены
        errRn.Value = ""
    End If
End Sub

"=IFERROR(VLOOKUP(RC[-9],Лист1!C[-11]:C[-5],7,0),"""")"

Range("N10").Select
    With ActiveSheet.UsedRange
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    End With
    Dim userInput As Double
    userInput = Application.InputBox("Введите число:", Type:=1)
    Range("N7").Value = userInput
    Range("N10:N" & lLastRow).FormulaR1C1 = "=IF(RC[-1]>0,RC[-1]/R7C14,RC[-8])"
    Range("N10").Select

Range("N10:N" & lLastRow).FormulaR1C1 = "=IF(RC[-1]>0,RC[-1]/" & userInput & ",RC[-8])"

Range("N10").Select
    With ActiveSheet.UsedRange
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    End With
    Dim userInput As Variant
    userInput = Application.InputBox("Введите число:", Type:=1)
    Range("N10:N" & lLastRow).FormulaR1C1 = "=IF(RC[-1]>0,RC[-1]/userInput,RC[-8])"
    Range("N10").Select

=ЕСЛИ(M10>0;M10/userInput;F10

=ЕСЛИ(M10>0;M10/0,9;F10)

"=IF(RC[-1]>0,RC[-1]/0.9,RC[-8])"

=МИН(ЕСЛИ($A$2:$A$42=A2;$D$2:$D$42))

Sub Макрос10()
    Range("E2").Select
    Dim lLastRow As Long
    With ActiveSheet.UsedRange
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("E2:E" & lLastRow).FormulaArray = "=MIN(IF(R2C1:R42C1=RC[-4],R2C4:R42C4))"
    Application.Calculation = xlAutomatic
    End With
End Sub

=ЛЕВСИМВ(A2;ПОИСК(" ";A2)-1)

=ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК(" ";A2;ПОИСК(" ";A2)))