(Таблица 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
    Источник

a<b<c

ИСТИНА<c

=9^9<(1=1)

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

=СУММПРОИЗВ(($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)

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

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

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

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

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

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

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

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

ThisWorkbook.IsAddin = True

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

=РАБДЕНЬ(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)