[SergoZD]

wolandino
Создай в Excel макрос следующего содержания:

Sub RegExp_Late_Execute_2()
Dim RegEx As Object, RegMatchCollection As Object
Dim Myrange As Range, C As Range, OutPutStr As String
Dim i          As Long

    Set RegEx = CreateObject("vbscript.regexp")

    With RegEx
        .Global = True
        .IgnoreCase = True
        .Pattern = "(\d)+"
    End With

    Set Myrange = ActiveSheet.Range("A1:A10")

    For Each C In Myrange
        OutPutStr = ""
        Set RegMatchCollection = RegEx.Execute(C.Value)

        If RegMatchCollection.Count > 0 Then
            OutPutStr = ""
            For i = 0 To RegMatchCollection.Count - 1 Step 1
                OutPutStr = OutPutStr & " " & RegMatchCollection(i)
            Next
            C.Offset(0, 1) = "http://www.site.ru?id==" & RegMatchCollection(0) & "&id2====" & RegMatchCollection(0)
        End If
    Next

    Set RegMatchCollection = Nothing
    Set RegEx = Nothing
    Set Myrange = Nothing

End Sub

То что выделено красным, необходимо исправить. Указаны ячейки таблицы, в которых лежат исходные ссылки.
В итоге рядом с исходным столбцом получится желаемый.
Делал из какого-то примера с уровнем знаний в данном вопросе = нулю, так что сильно не пинать. Главное работает как требуется.

www.site.ru?id==1   http://www.site.ru?id==1&id2====1
www.site.ru?id==2   http://www.site.ru?id==2&id2====2
www.site.ru?id==3   http://www.site.ru?id==3&id2====3
www.site.ru?id==4   http://www.site.ru?id==4&id2====4
www.site.ru?id==5   http://www.site.ru?id==5&id2====5
www.site.ru?id==6   http://www.site.ru?id==6&id2====6
www.site.ru?id==7   http://www.site.ru?id==7&id2====7
www.site.ru?id==8   http://www.site.ru?id==8&id2====8
www.site.ru?id==9   http://www.site.ru?id==9&id2====9
www.site.ru?id==10  http://www.site.ru?id==10&id2====10