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)

(Таблица as table,НомСтолб as number, Разделитель as text) as table =>
let
    Столбец = List.Range(Table.ColumnNames(Таблица),НомСтолб,1){0},
    fn = Splitter.SplitTextByDelimiter(Разделитель, QuoteStyle.None),
    Разделить = Table.TransformColumns(Таблица,{Столбец, fn}),
    Результат = Table.ExpandListColumn(Разделить,Столбец)
in
    Результат

let
    Источник = SplitAndExpand(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],1,",")
in
    Источник

=ТЕКСТ(ДЛСТР(B3&D3&F3);"1;;")