=СУММ(ЕСЛИОШИБКА(--ПСТР(ПОДСТАВИТЬ(F18:T20;"/";"     ");ВЫБОР(ТЕКСТ(ПОИСК(1;ПОДСТАВИТЬ(F17:T19;"вч";1));"[>1]2;1");1;5);5);))

Sub dd()
10  On Error GoTo Er
    Dim arr As Variant, arr1 As Variant, i&, s$
20  With [A1].CurrentRegion
30      With Intersect(.Columns("D").Offset(5), .EntireRow)
40          arr = .Value: arr1 = .Offset(, 1).Formula
50          With CreateObject("vbscript.regexp")
60              .Pattern = "([0-9]+)?(\s?\S+).*"
70              For i = 1 To UBound(arr)
80                  If .test(arr(i, 1)) Then
90                      s = "=trim(""$2 ""& 0" & arr1(i, 1) & "*text(0$1,""0;;1""))"
100                     arr(i, 1) = Evaluate(.Replace(arr(i, 1), s))
110                 End If
120             Next
130         End With
140         Parent.ScreenUpdating = False: Parent.DisplayAlerts = False
150         .Formula = Parent.Substitute(arr, ".", Parent.DecimalSeparator)
160         .TextToColumns .Cells(1), 1, , , , , , 1
170         Parent.DisplayAlerts = True: Parent.ScreenUpdating = True
180     End With
190 End With
200 Exit Sub
Er:
210 Parent.DisplayAlerts = True: Parent.ScreenUpdating = True
220 With Parent.VBE.MainWindow.LinkedWindows
230     .Add Parent.VBE.Windows("Immediate")
240     .Add Parent.VBE.Windows("Locals")
250 End With
    'Application.VBE.Windows("Immediate").Visible = True
    'Application.VBE.Windows("Locals").Visible = True
260 Debug.Print "Ошибка " & Err.Number & " (" & Err.Description & ") на строке " & Erl
270 Stop
280 Err.Clear
290 Resume Next
End Sub

=РАБДЕНЬ(B4;ОКРУГЛВВЕРХ((D4-K$3+C4+(C4<J$6)*(K$6-J$6))/K$3-J$3+J$6-K$6;0)*(D4>K$3-J$3+J$6-K$6);$G$3:$G$20)+J$3+ОСТАТ(D4-K$3+C4+(C4<J$6)*(K$6-J$6);K$3-J$3+J$6-K$6)+(K$3-C4-(C4<J$6)*(K$6-J$6))*(D4-K$3+C4+(C4<J$6)*(K$6-J$6)=0)+((J$3+ОСТАТ(D4-K$3+C4+(C4<J$6)*(K$6-J$6);K$3-J$3+J$6-K$6))>J$6)*(K$6-J$6)

Sub dd()
    Dim arr As Variant, arr1 As Variant, i&, s$
    With [A1].CurrentRegion
        With Intersect(.Columns("D").Offset(3), .EntireRow)
            arr = .Value: arr1 = .Offset(, 1).Value
            With CreateObject("vbscript.regexp")
                .Pattern = "([0-99]+)?(\s?\S+).*"
                For i = 1 To UBound(arr)
                    s = "trim(""$2 ""& " & arr1(i, 1) & "*text(0$1,""0;;1""))"
                    arr(i, 1) = Evaluate(.Replace(arr(i, 1), s))
                Next
            End With
            Application.ScreenUpdating = False: Application.DisplayAlerts = False
            .Value = arr: .TextToColumns .Cells(1), 1, , , , , , 1
            Application.DisplayAlerts = True: Application.ScreenUpdating = True
        End With
    End With
End Sub

ThisWorkbook.IsAddin = True

Sub Auto_Open()
    ThisWorkbook.IsAddin = True
    Application.OnKey "%{F8}", "ShowMacro"
End Sub
Sub ShowMacro()
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    Application.ScreenUpdating = False
    With ThisWorkbook
        .IsAddin = False
        wb.Activate
        Application.CommandBars.ExecuteMso "PlayMacro"
        DoEvents
        .IsAddin = True
    End With
    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "Лист1" Then
        Application.ScreenUpdating = False
        Select Case Sheets("Лист1").[a2]
            Case 1
                Columns("a:k").Hidden = False
                Columns("l:aa").Hidden = True
                Columns("ab:ak").Hidden = True
            Case 2
                Columns("a:k").Hidden = True
                Columns("l:aa").Hidden = False
                Columns("ab:ak").Hidden = True
            Case 3
                Columns("a:k").Hidden = True
                Columns("l:aa").Hidden = True
                Columns("ab:ak").Hidden = False
            Case Else
                Columns("a:k").Hidden = False
                Columns("l:aa").Hidden = False
                Columns("ab:ak").Hidden = False
        End Select
        Application.Goto Cells.SpecialCells(12).Areas(1).Cells(1, 1), 1
        Application.ScreenUpdating = True
    End If
End Sub

=2^ABS(СТОЛБЕЦ()-СТРОКА())

Sub Upd_Claims()
    'ActiveWorkbook.RefreshAll
    Dim objConnection As Object
    Dim rs As Object
    Dim arr$(3)
    arr(1) = "VGR$" & [Таблица_ClaimsOtherTotal.accdb[[#All],[Дата создания]]].Address(0, 0)
    arr(2) = "CLAIMS CHECK$" & [Таблица_ClaimsTotal.accdb[[#All],[Дата создания]]].Address(0, 0)
    arr(3) = "LETTERS CHECK$" & [Таблица_Letters_Total.accdb[[#All],[ДатаПретензииПоПисьму]]].Address(0, 0)
    Set objConnection = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & _
    ActiveWorkbook.FullName & ";" & "Extended Properties=""Excel 12.0;HDR=Yes"";"
    sqlStr1 = "Select DISTINCT * from (" & Mid(Join(arr, "] union all SELECT * from ["), 13) & "])"
    rs.Open sqlStr1, objConnection, 3, 3
    [Таблица2].ListObject.HeaderRowRange(2, 1).CopyFromRecordset rs
    Set rs = Nothing
    Set objConnection = Nothing
    Sheets("STATISTICS").Select
End Sub

=ВПР(C3;C5:D15;2;)

$'Форма ввода'.$C$3

'Форма ввода'!$C$3

=--ПРАВБ(ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";255));255)

=СУММПРОИЗВ(($A3&ТЕКСТ(B$2;"МГ")=заказы!$C$2:$C$30&ТЕКСТ(Ч(СМЕЩ(заказы!$A$1;ПРОСМОТР(СТРОКА(заказы!$A$2:$A$30);СТРОКА(заказы!$A$2:$A$30)/заказы!$A$2:$A$30^0)-1;));"МГ"))*заказы!$D$2:$D$30)

a<b<c

ИСТИНА<c

=9^9<(1=1)

=И(AE3<=W2;W2<=AE4)