Function GETID(url As String) As String
Dim pattern As String
Dim regEx As Object
Dim matches As Object
pattern = "/(\d+)/gallery/"
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = False
regEx.IgnoreCase = True
regEx.pattern = pattern
Set matches = regEx.Execute(url)
If matches.Count > 0 Then
GETID = matches(0).SubMatches(0)
Else
GETID = ""
End If
End Function
А | B
Яндекс| я.ру
Гугл|г.ком
ВК|ВК.ком
В идеале если человек, который будет пользоваться, не слишком умён, сделать выпадающий список во всех ячейках, где надо будет выбирать и защитить ячейки от ввода любые других данных, кроме указанных.
Далее в ячейках, где надо автоматически ставить ссылку, делаешь впр функцию, где массив - твой массив на листе data, искомое значение - то из выдающего списка, где выбирают, номер столбца - второй, потому что в нем ссылки на листе data. Потом опять же закрываешь от изменений лист дата и формулу впр на 1 листе, если не хочешь, чтоб кривые руки что-то сломали.