Как извлечь доменное имя из URL в Excel?
Если вы регулярно работаете с большим количеством URL-адресов в своей книге, вам может понадобиться быстро извлечь только доменные имена из этих ссылок. Как оперативно получить доменные имена из URL-адресов в Excel?
Извлечение доменного имени из 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, выберите ячейку 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. Затем сохраните и закройте код, вернитесь на лист и введите формулу =Extractdomain(A2) в пустую ячейку рядом со ссылкой на веб-страницу. См. снимок экрана:
4. После этого нажмите клавишу Enter, выберите ячейку B2 и перетащите маркер заполнения вниз по ячейкам, к которым нужно применить эту формулу. Все доменные имена будут автоматически извлечены из каждой ячейки с веб-адресом.
Связанные статьи:
Как извлечь домены из нескольких адресов электронной почты в Excel?
Как быстро Извлечь адреса электронной почты из текстовой строки?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек