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

=НАИБОЛЬШИЙ(СЧЁТЕСЛИ(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%%)

Dim tariff As Double

UserForm1.Show

UserForm1.Show False

UserForm1.TextBox1.Value = tariff

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

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

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/(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;"")

=СУММПРОИЗВ((ПРАВБ('2'!$A1:$S1;ДЛСТР(B$1))=B$1)*('2'!$D1:$V1>'2'!$E1:$W1))

        rRoute.Replace vbCrLf, vbLf
        rRoute.Replace vbLf, vbCrLf
        For Each rcell In rRoute
            If bNext Then lNext = rcell.Row: bNext = 0
            If rcell = Me.Label1.Caption Then lRow = rcell.Row: bNext = 1
            ii = ii + 1: If ii = rRoute.Count Then lLast = rcell.Row
        Next rcell

Dim btn As Button
Sub Уменьшить_размер_шрифта_на_кнопках()
    For Each btn In ActiveSheet.Buttons
        With btn.Font
            .Size = .Size - 1
        End With
    Next
End Sub
Sub Увеличить_размер_шрифта_на_кнопках()
    For Each btn In ActiveSheet.Buttons
        With btn.Font
            .Size = .Size + 1
        End With
    Next
End Sub

=ИНДЕКС(ДВССЫЛ($D$4;);СТРОКА(A1);СТОЛБЕЦ(A1))

=СУММ(ИНДЕКС(X$1:X$3;Ч(ИНДЕКС(1+ОСТАТ(ЦЕЛОЕ((СТРОКА()-1)/{1:3:9:27});3);)))*A$1:A$4)

If CDate(inData.Cells(j, 2)) < CDate(rRow.Cells(3)) And CDate(rRow.Cells(3)) < CDate(inData.Cells(j, 2)) + TimeSerial(0, 40, 0) Then