如果您经常在工作簿中处理大量 URL，有时可能只想提取每个网页地址中的域名。在 Excel 中，如何快速从 URL 中获取域名？

使用公式从 URL 提取域名

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

使用公式从 URL 提取域名

太棒了！在 Excel 中像使用 Chrome、Edge、Firefox 和 Safari 一样高效地使用 Tabs！
每天为您节省 50% 的时间，并减少成千上万次鼠标点击！

以下长公式可助您按需从网页地址中提取域名。请按以下步骤操作：

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，并向下拖动填充柄至需要应用此公式的单元格，即可从各自的网页地址中提取出所有域名。