=ЕСЛИ(СЧЁТ(1/(B$2:B2=B2)/(МУМНОЖ(--($A$2:A2*{1;-1}>=ДАТАМЕС(A2;{-1;1})*{1;-1});{1:1})=2))=1;СЧЁТ(1/($B$2:$B$45=B2)/(МУМНОЖ(--($A$2:$A$45*{1;-1}>=ДАТАМЕС(A2;{-1;1})*{1;-1});{1:1})=2))-1;"")

Sub Кнопка2_Щелчок()
    Dim c As Range
    With Application: .ScreenUpdating = 0: .EnableEvents = 0
    With ActiveSheet.UsedRange
        .AutoFilter Field:=1, Criteria1:="214050000"
        .AutoFilter Field:=3, Criteria1:="3"
        .AutoFilter Field:=4, Criteria1:="91301"
        With .SpecialCells(12).Areas
            Set c = .Item(.Count).Rows(IIf(.Count > 1, 1, 2))
            c.Cells(3) = 10
        End With
        .AutoFilter Field:=3
        .AutoFilter Field:=4
        c.Rows.Hidden = True
        .Offset(1).SpecialCells(12).Rows.Delete xlUp
        .AutoFilter
    End With
    .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub

=СЧЁТЕСЛИ(ИНДЕКС('1'!$A:$Z;ПОИСКПОЗ(9E+307;'1'!$A:$A););"*"&B1)

=ИНДЕКС(B:B;НАИМЕНЬШИЙ(ЕСЛИ($B$3:$B$882="";"";СТРОКА($B$3:$B$882));(СТРОКА()+8)/11))

UserForm1.Show

UserForm1.Show False

UserForm1.TextBox1.Value = tariff

Dim tariff As Double

=НАИБОЛЬШИЙ(СЧЁТЕСЛИ(C$2:V$40;C$2:V$40);СУММ($X$1:X1;1))

=ИНДЕКС(A:V;МАКС((СЧЁТЕСЛИ(C$2:V$40;C$2:V$40)=X2)*(СЧЁТЕСЛИ($W$1:W1;C$2:V$40)=0)*СТРОКА(C$2:C$40));ОСТАТ(МАКС((СЧЁТЕСЛИ(C$2:V$40;C$2:V$40)=X2)*(СЧЁТЕСЛИ($W$1:W1;C$2:V$40)=0)*(СТРОКА(C$2:C$40)+СТОЛБЕЦ(C$2:V$2)%%));1)/1%%)

Sub ConcatRows()
    Dim cell As Range, cell1 As Range, addr$
    With Me.[B:B]
        Set cell = .Find("[expand", .Cells(1), xlFormulas, xlPart, xlByRows, xlNext, False, False)
        addr = cell.Address
        Do
            If InStr(cell, "[/expand") = 0 Then
                Set cell1 = .Find("[/expand", cell, xlFormulas, xlPart, xlByRows, xlNext, False, False)
                With Me.Range(cell, cell1)
                    cell = Join(Application.Transpose(Me.Range(cell, cell1)), vbLf)
                    .Offset(1).Resize(.Count - 1).Delete xlUp
                End With
             End If
             Set cell = .Find("[expand", cell, xlFormulas, xlPart, xlByRows, xlNext, False, False)
        Loop While Not cell Is Nothing And cell.Address <> addr
    End With
End Sub

=ПРОСМОТР(9E+307;--ТЕКСТ('2'!$A$1:ИНДЕКС('2'!$A:$X;ПОИСКПОЗ("яяя";'2'!$A:$A);) ИНДЕКС('2'!$A:$X;;ПОИСКПОЗ(F6;'2'!$1:$1;)+5);"[=0] "))

Sub FormulaDvighenie()
    Names.Add Name:="FormulaDvighenieName", RefersTo:="=ТУТ ДЛИННАЯ ФОРМУЛА МАССИВА"
    Worksheets("Движение МЦ").Range("D11").Value = [FormulaDvighenieName]
End Sub

Range("a5:a" & LastRow([a1])).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=СЖПРОБЕЛЫ(A5)<>A5"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
' Первый столбик / Красное / Проверка УФ на дубликаты названий
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

With Range("a5:a" & LastRow([a1])).FormatConditions
        With .Add(xlExpression, Formula1:="=СЖПРОБЕЛЫ(RC)<>RC")
            .SetFirstPriority
            With .Interior
                .PatternColorIndex = xlAutomatic
                .Color = 255
                .TintAndShade = 0
            End With
        End With
' Первый столбик / Красное / Проверка УФ на дубликаты названий
        With .AddUniqueValues
            .SetFirstPriority
            .DupeUnique = xlDuplicate
            With .Font
                .Color = -16383844
                .TintAndShade = 0
            End With
            With .Interior
                .PatternColorIndex = xlAutomatic
                .Color = 13551615
                .TintAndShade = 0
            End With
            .StopIfTrue = False
        End With
    End With

Range("H5:H1100").Select
    'Columns("H:H").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=И(F5:F5>0;G5:G5>0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.599963377788629
    End With
' Формула 3-2 / Зеленый / В корзину (в наличии) (цена ДА / остаток ДА / разрешить покупку НЕТ)
    Selection.FormatConditions(1).StopIfTrue = False
    Range("H5:H1100").Select
    'Columns("H:H").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=И(F5:F5>0;G5:G5>0;H5:H5>0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.599963377788629
    End With
' Формула 3-1 / Зеленый / Запросить цену (в наличии)    цена НЕТ / остаток ДА / разрешить покупку ДА
    Selection.FormatConditions(1).StopIfTrue = False
    Range("H5:H1100").Select
    'Columns("H:H").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=И(F5:F5<=0;G5:G5>0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent3
        .TintAndShade = 0.599963377788629
    End With
    
' Формула 2-2 / Желтое / В корзину (под заказ)  (цена ДА/ остаток НЕТ / разрешить покупку ДА)
    Selection.FormatConditions(1).StopIfTrue = False
    Range("H5:H1100").Select
    'Columns("H:H").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=И(F5:F5>=0;G5:G5<=0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 10079487
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
' Формула 2-1 / Желтое / Запросить цену (под заказ) (цена НЕТ / остаток НЕТ / разрешить покупку ДА)
    Selection.FormatConditions(1).StopIfTrue = False
    Range("H5:H1100").Select
    'Columns("H:H").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=И(F5:F5<=0;G5:G5<=0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 10079487
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
   
' Формула 1-2 / Красный цвет / Подписаться  (цена ДА / остаток НЕТ / разрешить покупку НЕТ)
    Selection.FormatConditions(1).StopIfTrue = False
    Range("H5:H1100").Select
    'Columns("H:H").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=И(F5:F5>0;G5:G5<=0;H5:H5>0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.599963377788629
    End With
' Формула 1-1 / Красный цвет / Запросить цену (не доступно) (цена ДА / остаток НЕТ / разрешить покупку НЕТ)
    Selection.FormatConditions(1).StopIfTrue = False
    Range("H5:H1100").Select
    'Columns("H:H").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=И(F5:F5>0;G5:G5<=0;H5:H5>0)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.599963377788629
    End With

    With Range("h5:h" & LastRow([h1])).FormatConditions
        With .Add(xlExpression, Formula1:="=И(R[]C6>0;R[]C7>0)")
            .SetFirstPriority
            With .Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent3
                .TintAndShade = 0.599963377788629
            End With
            .StopIfTrue = False
        End With
' Формула 3-2 / Зеленый / В корзину (в наличии) (цена ДА / остаток ДА / разрешить покупку НЕТ)
        With .Add(xlExpression, Formula1:="=И(R[]C6>0;R[]C7>0;RC>0)")
            .SetFirstPriority
            With .Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent3
                .TintAndShade = 0.599963377788629
            End With
            .StopIfTrue = False
        End With
' Формула 3-1 / Зеленый / Запросить цену (в наличии)    цена НЕТ / остаток ДА / разрешить покупку ДА
        With .Add(xlExpression, Formula1:="=И(R[]C6<=0;R[]C7>0)")
            .SetFirstPriority
            With .Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent3
                .TintAndShade = 0.599963377788629
            End With
            .StopIfTrue = False
        End With
' Формула 2-2 / Желтое / В корзину (под заказ)  (цена ДА/ остаток НЕТ / разрешить покупку ДА)
        With .Add(xlExpression, Formula1:="=И(R[]C6>=0;R[]C7<=0)")
            .SetFirstPriority
            With .Interior
                .PatternColorIndex = xlAutomatic
                .Color = 10079487
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
            .StopIfTrue = False
        End With
' Формула 2-1 / Желтое / Запросить цену (под заказ) (цена НЕТ / остаток НЕТ / разрешить покупку ДА)
        With .Add(xlExpression, Formula1:="=И(R[]C6<=0;R[]C7<=0)")
            .SetFirstPriority
            With .Interior
                .PatternColorIndex = xlAutomatic
                .Color = 10079487
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
            .StopIfTrue = False
        End With
' Формула 1-2 / Красный цвет / Подписаться  (цена ДА / остаток НЕТ / разрешить покупку НЕТ)
        With .Add(xlExpression, Formula1:="=И(R[]C6>0;R[]C7<=0;RC>0)")
            .SetFirstPriority
            With Selection.FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .TintAndShade = 0.599963377788629
            End With
            .StopIfTrue = False
        End With
' Формула 1-1 / Красный цвет / Запросить цену (не доступно) (цена ДА / остаток НЕТ / разрешить покупку НЕТ)
        With .Add(xlExpression, Formula1:="=И(R[]C6>0;R[]C7<=0;RC>0)")
            .SetFirstPriority
            With .Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .TintAndShade = 0.599963377788629
            End With
            .StopIfTrue = False
        End With
    End With

Sub УФ_стереть_создать()
' //////////////////////////////////
    ' Вставка Y в параметр НДС включен в цену?
    On Error Resume Next
    With Rows(3).Find("НДС включен в цену ?", , xlValues, xlWhole).Offset(2)
        Range(.Cells, Cells(Rows.Count, .Column)).SpecialCells(xlCellTypeBlanks) = "Y"
    End With
' //////////////////////////////////
    MsgBox "ВСЕ!"
End Sub

=СУММПРОИЗВ((A8:A17=B1)*(ПРОСМОТР(СТОЛБЕЦ(B6:J6);СТОЛБЕЦ(B6:J6)/(B6:J6>"");B6:J6)=B2)*(B7:J7=B3)*B8:J17)

=ЕСЛИОШИБКА(ПРОСМОТР(9E+307;--ТЕКСТ('2'!$A$1:ИНДЕКС('2'!$A:$X;ПОИСКПОЗ("яяя";'2'!$A:$A);) ИНДЕКС('2'!$A:$X;;ПОИСКПОЗ(F6;'2'!$1:$1;)+5);"[=0] "));242)