let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Кол-во", Int64.Type}}),
    #"Разделить столбец по разделителю" = Table.ExpandListColumn(Table.TransformColumns(#"Измененный тип", {{"Сертификаты", Splitter.SplitTextByDelimiter("; ", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Сертификаты"),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Разделить столбец по разделителю",{{"Сертификаты", type text}})
in
    #"Измененный тип1"

let
    Источник = Table.FromList({2018..2021}, Splitter.SplitByNothing(), {"Год"}),
    #"Добавлен пользовательский объект" = Table.AddColumn(Источник, "Пользовательская", each {1..12}),
    #"Развернутый элемент Пользовательская" = Table.ExpandListColumn(#"Добавлен пользовательский объект", "Пользовательская"),
    #"Вставлено: объединенный столбец" = Table.AddColumn(#"Развернутый элемент Пользовательская", "Период", each Text.Combine({Text.From([Год], "ru-RU"), Text.From([Пользовательская], "ru-RU")}, "/"), type text),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Вставлено: объединенный столбец",{"Период"}),
    Пользовательская1 = Table.AddColumn(#"Другие удаленные столбцы", "Пользовательская", each Web.Page(Web.Contents("https://www.gismeteo.ru/diary/236792/"&[Период])){0}[Data])
in
    Пользовательская1

    Источник = Excel.Workbook(File.Contents("\\10.38.9.251\компания\ПТО-ТТ\полинейно\ЗАМЕЧАНИЯ.xlsx"), null, true),
    Лист1_Sheet = Источник{[Item="Лист1",Kind="Sheet"]}[Data],
    #"Повышенные заголовки" = Table.PromoteHeaders(Лист1_Sheet, [PromoteAllScalars=true]),
    #"Измененный тип" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"Сцепка", type text}, {"Const. Area", Int64.Type}, {"Line ID", type text}, {"Категория замечания", type text}, {"Состояние допуска чек-листа и листа соосности", type text}, {"Кем не подписано", type any}})
in
    #"Измененный тип"