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で複数のメールアドレスからドメインを抽出するにはどうすればよいですか？

テキスト文字列からメールアドレスを迅速に抽出するにはどうすればよいですか？