(?:<\/?(?:span|div|a|img|style|font|em|wbr|u).*?>(?:\s*\n\s*)*)|(?:(?:(<)([pb]r*|strong|t[abdhr]{1,2}(?:le|ody)*|u*li*|h[0-9]*)\s.*?(?=\/*>))|(\S+))(?=[\s\S]*:(?:\1|\3)=(:|.*?):)|(?:(\n)\s*)+

:"=":<=<:>=>: =:"=":

$4$2$5

Sub dd()
    Const dic$ = ":"="":<=<:>=>: =:"="":"
    Const pattern$ = "(?:<\/?(?:span|div|a|img|style|font|em|wbr|u)" & _
        ".*?>(?:\s*\n\s*)*)|(?:(?:(<)([pb]r*|strong|t[abdhr]{1,2}" & _
        "(?:le|ody)*|u*li*|h[0-9]*)\s.*?(?=\/*>))|(\S+))(?=[\s\S]*:" & _
        "(?:\1|\3)=(:|.*?):)|(?:(\n)\s*)+"
    Dim arr() As Variant,i&
    With [Было!A1].CurrentRegion.Columns(3)
        If .Cells.Count < 2 Then Exit Sub
        arr = .Value
        For i = LBound(arr) + 1 To UBound(arr)
            arr(i, 1) = arr(i, 1) & dic
            With CreateObject("vbscript.regexp")
                .Global = True: .MultiLine = True
                .Pattern = pattern
                If .test(arr(i, 1)) Then
                    arr(i, 1) = Replace(.Replace(arr(i, 1), "$4$2$5"), dic, "")
                End If
            End With
        Next
        .Value = arr
    End With
End Sub

    Dim r As Range, arr() As Variant
    With Rows(3)
        Set r = .Find("Валюта для Розничной цены", , xlValues, xlWhole)
        arr = .FindNext(r).Offset(2).Resize(LastRow(.Cells), 2).Value
        r.Offset(2).Resize(UBound(arr), 2).Value = arr
    End With

aa    ='1'!$D3:$AF3

bb    ='1'!$D$2:$AF2

cc    =СТОЛБЕЦ(aa)

dd    =ОСТАТ(cc-2;6)=0

ee    =ЕСЛИ(dd*(aa>0);aa-ОСТАТ(НАИМЕНЬШИЙ(ЕСЛИ(dd;cc/1%^4+ЕСЛИОШИБКА(СТРОКА(bb)/(bb>0)/1%^3+bb;);"");(cc-2)/6*(СТРОКА(aa)-2));10^3);)

=СУММ(--(ee>0))

=ЕСЛИОШИБКА(ИНДЕКС('1'!3:3;НАИМЕНЬШИЙ(ЕСЛИ(ee>0;cc);СТОЛБЕЦ(A3))-5);"")

=ДЕНЬ(ЛЕВБ(V3;ПОИСК("/";V3)-1))

=МЕСЯЦ(ЛЕВБ(V3;ПОИСК("/";V3)-1))

=ГОД(ЛЕВБ(V3;ПОИСК("/";V3)-1))

=ПСТР(V3;ПОИСК("/";V3)+1;ДЛСТР(V3))

Sub bb()
    Dim arr() As Variant, i&
    With CreateObject("vbscript.regexp")
        .Pattern = "(?:([^,]+?),)(?=(?:.*?\1(?:,|$)))|(?:,\s*)+$|(?:(,)(\s)*){2,}"
        .Global = True: .MultiLine = True
        arr = Selection.Value
        For i = 1 To UBound(arr)
            If .test(arr(i, 1)) Then arr(i, 1) = .Replace(arr(i, 1), "$2$3")
        Next
        Selection.Value = arr
    End With
End Sub

(?:([^,]+?),)

(?=(?:.*?\1(?:,|$)))

(?:,\s*)+$

(?:(,)(\s)*){2,}

(?:([^,]+),)(?=.*?\1(?:,|$))|(?:,\s*)+$|(?:(,)(\s)*){2,}

=CHAR(9)

Sub bb()
    Dim arr() As Variant, i&
    With CreateObject("vbscript.regexp")
        .Pattern = "(?:([^,]+),)(?=(?:.*?,\1|\1)(?:,|$))|(?:,\s*)+$|(?:(,)(\s)*){2,}|\s+\K,\s*"
        .Global = True: .MultiLine = True
        arr = Selection.Value
        For i = 1 To UBound(arr)
           If .test(arr(i, 1)) Then arr(i, 1) = .Replace(arr(i, 1), "$2$3")
        Next
        Selection.Value = arr
    End With
End Sub

Table.SelectColumns(
    Table.ExpandTableColumn(
        Table.NestedJoin(
            table2,"ID",
            Table.AddColumn(
                table1,
                "NewID",
                each Text.Start([LongID] , 15)
            ),"NewID",
            ""
        ),
        "",
        Table.ColumnNames (table1)
    ),
    List.Combine(
        List.Differnce (
            List.Combine(
                Table.ColumnNames(table1),
                Table.ColumnNames (table2)
            ),
            {"LongID","ID"}
        ),
        {"LongID","ID"}
    ),
)

=СУММ((МУМНОЖ(-(B$2:E$10="+");ТРАНСП(СТОЛБЕЦ(B2:E2))^0)<0)*(F$2:F$10=F12)*G$2:G$10)

Rundll32 Shell32.dll,Control_RunDLL Intl.cpl,,3

=ЕСЛИ(СТРОКА(I1)>СУММ(ОКРВВЕРХ(E$6:E$10;0,2)/0,2);"";СТРОКА(I1))

=ЕСЛИ(I6<"";ПРОСМОТР(СТРОКА(J1);МУМНОЖ(ЕСЛИ(Ч(+C$5:C$10)>=ТРАНСП(C$5:C$10);ТРАНСП(ОКРВВЕРХ(E$5:E$10;0,2)/0,2););СТРОКА(C$5:C$10)^0)+1;D$6:D$7);"")

=ЕСЛИ(I6<"";--ТЕКСТ(ЕСЛИ(J6=J7;0,2;ОСТАТ(ВПР(J6;D$5:E$10;2;)/1%;20)%);"[=0]\0\,2");"")

И(ЕПУСТО())

Workbook_BeforePrint

=СУММПРОИЗВ(ИНДЕКС(F$2:F$4;Ч(ИНДЕКС(ПОИСКПОЗ(Т(+C7:G7)&"*";долл;);0;0)));Ч(+D7:H7))