Как извлечь доменное имя из URL-адреса в Excel?

Если вы всегда имеете дело с большим количеством URL-адресов в своей книге, иногда вам может потребоваться извлечь только доменное имя с каждой веб-страницы. Как в Excel можно быстро получить имена доменов из URL-адресов?

Извлечь доменное имя из URL с формулой

Извлечь доменное имя из URL-адреса с помощью функции, определяемой пользователем

Извлечь доменное имя из URL с формулой

Следующая длинная формула может помочь вам вернуть доменное имя с веб-страницы по мере необходимости. Пожалуйста, сделайте следующее:

1. В пустой ячейке рядом с ячейкой вашей веб-страницы введите следующую формулу, в этом примере я введу формулу в ячейку B2: =IF(ISNUMBER(FIND("www.",A2)),MID(A2,FIND("www.",A2)+4,IF(ISNUMBER(FIND("/",A2,9)),FIND("/",A2,9),LEN(A2)+1)-FIND("www.",A2)-4),MID(A2,FIND("//",A2)+2,IF(ISNUMBER(FIND("/",A2,9)),FIND("/",A2,9),LEN(A2)+1)-FIND("//",A2)-2)).

Внимание: в приведенной выше формуле, A2 указывает ячейку, содержащую веб-страницу, с которой вы хотите получить доменное имя, вы можете изменить его по своему усмотрению.

2, Затем нажмите Enter key и выберите ячейку B2, перетащите дескриптор заполнения вниз в диапазон, в котором вы хотите применить эту формулу, и все имена доменов были извлечены из каждого URL-адреса. Смотрите скриншот:

Извлечь доменное имя из URL-адреса с помощью функции, определяемой пользователем

Если вас интересует код VBA, вы можете создать Функция, определяемая пользователем для извлечения доменного имени из URL-адресов.

1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: извлечь доменное имя из URL

Function ExtractDomain(ByVal URL As String) As String
'Update 20140904
    If InStr(URL, "//") Then
        URL = Mid(URL, InStr(URL, "//") + 2)
    End If
    If Left(URL, 4) Like "[Ww][Ww][Ww0-9]." Then
        URL = Mid(URL, 5)
    End If
    ExtractDomain = Split(URL, "/")(0)
End Function

3. Затем сохраните и закройте код, вернитесь на рабочий лист и введите эту формулу = Извлечь домен (A2) в пустую ячейку рядом с веб-страницей, см. снимок экрана:

4, Затем нажмите Enter , выберите ячейку B2 и перетащите дескриптор заполнения вниз к ячейкам, которые вы хотите содержать эту формулу, и все имена доменов будут извлечены из каждой ячейки веб-страницы.

Статьи по теме:

Как извлечь домены из нескольких адресов электронной почты в Excel?

Как быстро извлечь адрес электронной почты из текстовой строки?