Sub ListAllTables()
    Dim ws As Worksheet
    Dim newSheet As Worksheet
    Dim tbl As ListObject
    Dim i As Integer

    ' Создаем новый лист
    Set newSheet = ThisWorkbook.Sheets.Add
    newSheet.Name = "TableList"

    ' Заголовки для нашего списка таблиц
    newSheet.Cells(1, 1).Value = "Table Name"
    newSheet.Cells(1, 2).Value = "Sheet Name"
    newSheet.Cells(1, 3).Value = "Table Range"

    i = 2

    ' Проходим по каждому листу и каждой таблице
    For Each ws In ThisWorkbook.Sheets
        For Each tbl In ws.ListObjects
            ' Записываем информацию о таблице в новый лист
            newSheet.Cells(i, 1).Value = tbl.Name
            newSheet.Cells(i, 2).Value = ws.Name
            newSheet.Cells(i, 3).Value = tbl.Range.Address

            i = i + 1
        Next tbl
    Next ws
End Sub

Sub Поиск_слов_в_строке()
    Dim rng As Range
    Dim cell As Range
    Dim wordToFind As String
    Dim ws As Worksheet
    Dim foundInColumns As String
    Dim resultColumn As Range
    Dim i As Integer

    
    Set ws = ActiveSheet

    ' Установите слово, которое вы ищете
    wordToFind = "Иванов"

    ' Установите диапазон столбцов, который вы хотите проверить
    Set rng = ws.Range("c2:ag4229")

    ' Проверьте каждую ячейку в диапазоне
    For i = 1 To rng.Rows.Count
        foundInColumns = ""
        For Each cell In rng.Rows(i).Cells
            If InStr(cell.Value, wordToFind) > 0 Then
                ' Если слово найдено, добавьте название столбца в список
                If foundInColumns = "" Then
                    foundInColumns = cell.EntireColumn.Cells(1, 1).Value
                Else
                    foundInColumns = foundInColumns & ", " & cell.EntireColumn.Cells(1, 1).Value
                End If
            End If
        Next cell

        ' Установите столбец для вывода результатов
        Set resultColumn = ws.Range("D" & (i + 1))

        ' Выведите названия столбцов, в которых было найдено слово, в столбец D
         resultColumn.Value = "Слово '" & wordToFind & "' было найдено в следующих столбцах: " & foundInColumns
    Next i
End Sub

 =ЕСЛИ(СЧЁТЕСЛИ(A2:K2;"*ИВАНОВ*")=0;"";ИНДЕКС($A$1:$K$1;ПОИСКПОЗ("ИВАНОВ"; $A2:$K2;1)+1))

Table.TransformColumnTypes(Источник,{{"Фамилия", type text}, {"Имя", type text}, {"Дата начала", type text}, {"Дата конец", type text}, {"Город", type text}})

Text.Combine(
{[Фамилия],
", ",[Имя],  
", ",Text.From([Дата начала]),
", ",Text.From([Дата конец]), 
", ",[Город]})

=ЕСЛИ(ДЛСТР(A2)<=5;ОКРУГЛ(ПРЕОБР(A2;"byte";"kibyte");2)&" Кб";ЕСЛИ(ИЛИ(ДЛСТР(A2)>=5;ДЛСТР(A2)<=8);ОКРУГЛ(ПРЕОБР(A2;"byte";"Mibyte");2)&" Мб";ЕСЛИ(ДЛСТР(A2)>=9;ОКРУГЛ(ПРЕОБР(A2;"byte";"Gibyte");2)&" Гб";"""")))

    Source = Table.FromColumns({Lines.FromBinary(File.Contents("c:\Users\user\Downloads\216.162.47.76.txt"), null, null, 1251)}),
    #"Added Conditional Column" = Table.AddColumn(Source, "gr", each if Text.Contains([Column1], "value") then 1 else
    if Text.Contains([Column1], "handle") then 2 else if Text.Contains([Column1], "startAddress") then 3 else if 
    Text.Contains([Column1], "endAddress") then 4 else if Text.Contains([Column1], "name") then 5 else if 
    Text.Contains([Column1], "country") then 6 else if Text.Contains([Column1], "description") then 7 else if 
    Text.Contains([Column1], "eventDate") then 8 else if Text.Contains([Column1], "label") then 9 else null),
    #"Filtered Rows" = Table.SelectRows(#"Added Conditional Column", each [gr] <> null and [gr] <> ""),
    #"Grouped Rows" = Table.Group(#"Filtered Rows", {"gr"}, {{"a", each _, type table}}),
    #"Added Conditional Column2" = Table.AddColumn(#"Grouped Rows", "b", each if [gr] <> 7 and [gr] <> 2 then Table.FirstN([a],1) else [a]),
    #"Changed Type" = Table.TransformColumns(#"Added Conditional Column2",{{"b", each Table.AddIndexColumn(_, "Индекс", 1)}}),
    #"Sorted Rows" = Table.Sort(#"Changed Type",{{"gr", Order.Ascending}})[[b]],
    #"Expanded {0}" = Table.ExpandTableColumn(#"Sorted Rows", "b", {"Column1", "Индекс"}, {"Column1", "Индекс"}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Expanded {0}", "Column1", Splitter.SplitTextByEachDelimiter({":"},
     QuoteStyle.Csv, false), {"Column1.1", "Column1.2"}),
    #"Merged Columns" = Table.CombineColumns(Table.TransformColumnTypes(#"Split Column by Delimiter", {{"Индекс", type text}},
    "ru-RU"),{"Column1.1", "Индекс"},Combiner.CombineTextByDelimiter("_", QuoteStyle.None),"Сведено"),
    #"Added Conditional Column1" = Table.AddColumn(#"Merged Columns", "a", each if  Text.End([Column1.2],1)=","  then 
    Text.BeforeDelimiter([Column1.2], ",", {0, RelativePosition.FromEnd}) else [Column1.2])[[Сведено],[a]],
    #"Pivoted Column" = Table.Pivot(#"Added Conditional Column1", List.Distinct(#"Added Conditional Column1"[Сведено]), "Сведено", "a")
in
    #"Pivoted Column"