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