let
    Source = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    lst = List.Buffer(List.Transform(LookupTable[Данные для отбора], Text.Lower)),
    Select = Table.SelectRows(Source, each List.AnyTrue(List.Transform(lst, (x)=>Text.Contains(Text.Lower(_[Text]), x))))
in
    Select

=
var min1 = min(min(Table1[Date]), min(Table2[Date]))
var min2 = min(min(Table3[Date]), min(Table4[Date]))
var min3 = min(min(Table5[Date]), min(Table5[Date]))
var minmin = min(min(min1, min2), min3)

// Значения
let
    Источник = Excel.CurrentWorkbook(){[Name="Значения"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Значение", Int64.Type}}),
    Custom1 = #"Измененный тип" & Справочник,
    #"Sorted Rows" = Table.Sort(Custom1,{{"Значение", Order.Ascending}, {"наименование", Order.Ascending}}),
    #"Filled Up" = Table.FillUp(#"Sorted Rows",{"наименование"})
in
    #"Filled Up"

// Справочник
let
    Источник = Excel.CurrentWorkbook(){[Name="Справочник"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"ДО", Int64.Type}, {"наименование", type text}}),
    #"Renamed Columns" = Table.RenameColumns(#"Измененный тип",{{"ДО", "Значение"}})
in
    #"Renamed Columns"

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Removed Top Rows" = Table.Skip(Источник,8),
    #"Promoted Headers" = Table.PromoteHeaders(#"Removed Top Rows", [PromoteAllScalars=true]),
    #"Removed Other Columns" = Table.SelectColumns(#"Promoted Headers",{"ФИО сотрудника", "Компания", "Подразделение", "Дата и время"}),
    #"Filtered Rows" = Table.SelectRows(#"Removed Other Columns", each [ФИО сотрудника] <> null and [ФИО сотрудника] <> "ФИО сотрудника" and [ФИО сотрудника] <> ""),
    #"Changed Type" = Table.TransformColumnTypes(#"Filtered Rows",{{"Дата и время", type datetime}}),
    #"Inserted Date" = Table.AddColumn(#"Changed Type", "Дата", each DateTime.Date([Дата и время]), type date),
    #"Grouped Rows" = Table.Group(#"Inserted Date", {"ФИО сотрудника", "Компания", "Подразделение", "Дата"}, {{"Start", each List.Min([Дата и время]), type nullable datetime}, {"Finish", each List.Max([Дата и время]), type nullable datetime}})
in
    #"Grouped Rows"

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    N = 2,
    Group = 4,
    Combined = List.Combine(
        Table.ToList(
            Source, 
            (x)=>List.TransformMany(
                {List.FirstN(x, N)}, 
                (y)=>List.Select(List.Split(List.Skip(x, N), Group), each List.NonNullCount(_)>0),
                (x, y) => x & y
                )
            )
        ),
    toTable = Table.FromList(Combined, (x)=>x, List.FirstN(Table.ColumnNames(Source), N + Group))
in
    toTable

Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv)

Splitter.SplitTextByDelimiter(";")

let
    file = Binary.Buffer(File.Contents("ххх.csv")),
    SecondLine = Lines.FromBinary(file){1},
    ColumnsNo = List.Count(Table.ColumnNames(Csv.Document(SecondLine,[Delimiter=";", Encoding=1251, QuoteStyle=QuoteStyle.None]))),
    Source = Csv.Document(file,[Delimiter=";", Columns = ColumnsNo, Encoding=1251, QuoteStyle=QuoteStyle.None])
in
    Source

List.Min({[xx], [yy]})

MIN(table[xx], table[yy])

List.Min({List.Min(table[xx]), List.Min(table[yy]})

MIN(MIN(table[xx]), MIN(table[yy]))

var Min1 = MIN(table[xx])
var Min2 = MIN(table[yy])
return
IF(Min1<Min2, Min1, Min2)

Sub tezt()
Dim st
'st = Empty
'st = "0,5"
'st = 0.5
'st = "0.5"
'st = 1
'st = True
st = "12,345.67"

If IsNumeric(CStr(st)) Or IsNumeric(Replace(Replace(Cstr(st), ",", ""), ".", Application.International(xlDecimalSeparator))) Then
        If Not IsNumberDotSeparated(st) Then
            Debug.Print CStr(st), False
        Else
            Debug.Print CStr(st), True
        End If
    Else
        'non-number branch
        Debug.Print CStr(st), False
 
    End If
End Sub

Function IsNumberDotSeparated(ByRef MyVal) As Boolean

If CStr(MyVal) = Replace(CStr(MyVal), Application.International(xlDecimalSeparator), ".") Then
    'Debug.Print MyVal, "Number with Dot separator"
    IsNumberDotSeparated = True
Else
    'Debug.Print MyVal, "Number with other separator"
    IsNumberDotSeparated = False
End If

End Function

Sub tezt()
Dim st
st = Empty
'st = 0.5
'st = "0.5"
'st = 1
'st = "2"
'st = True
If IsNumeric(CStr(st)) Then
        If Not IsNumberDotSeparated(st) Then
            Debug.Print CStr(st), "false"
        Else
            Debug.Print CStr(st), "true"
        End If
    Else
        'non-number branch
        Debug.Print CStr(st), IsNumeric(Replace(st, ".", Application.International(xlDecimalSeparator)))
    End If
End Sub

Sub tezt()
With Application
       .DecimalSeparator = "."
       .ThousandsSeparator = ","
       .UseSystemSeparators = False
End With

Debug.Print "0.5", IsNumeric("0.5")     ' false, должно быть true
Debug.Print "0,5", IsNumeric("0,5")     ' true, должно быть false
Debug.Print "1", IsNumeric("1")           ' true, всё в порядке

Application.UseSystemSeparators = True
End Sub

let
  src = Csv.Document(), 
  dates = List.Buffer(src[Дата]),
  dateStart = Date.StartOfMonth ( List.Min ( dates ) ), 
  dateEnd = Date.EndOfMonth ( List.Max ( dates ) ), 
  generate = Table.FromColumns(
    {List.Dates(dateStart, Duration.TotalDays(dateEnd-dateStart)+1, #duration(1, 0, 0, 0) )},
    type table [Дата = Date.Type]
  )
in
  generate