如何在 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 中從多個電子郵件地址提取域名？

如何快速從文本字符串中提取電子郵件地址？