如何在Excel中从URL提取域名？

如果您的工作簿中经常需要处理大量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键，选择B2单元格，向下拖动填充柄至您想应用此公式的范围，所有域名都将从每个URL中提取出来。参见截图：

使用用户定义函数从URL提取域名

如果您对VBA代码感兴趣，可以创建一个用户定义函数来从URL中提取域名。

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

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中从多个电子邮件地址中提取域名？

如何快速从文本字符串中提取电子邮件地址？