如何从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。 然后按 输入 键，然后选择单元格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。 然后按 输入 键，选择单元格B2，然后将填充手柄向下拖动到要包含此公式的单元格中，所有域名将从每个网页单元格中提取。

相关文章：

如何从Excel中的多个电子邮件地址中提取域？

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