Excelでnslookupを使ってIPアドレスからホスト名を取得する方法

「ExcelでIPアドレスを入力したら、ホスト名（ドメイン名）を自動で表示したい」と思ったことはありませんか？特に、パソコンやネットワークに詳しくない方にとって、手作業で調べるのは面倒ですよね。そこで、今回はExcelのVBAを使って、IPアドレスからホスト名を自動で取得する方法をご紹介します。

nslookupとは？
Excelでnslookupを使う方法
注意点と補足
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

nslookupとは？

Excelのイメージ

まず、nslookup（エヌエスルックアップ）とは、インターネット上のドメイン名とIPアドレスを相互に変換するためのコマンドです。例えば、ウェブサイトのURL（例(http://www.example.com）を入力すると、そのサイトのIPアドレス（例93.184.216.34）を教えてくれます。逆に、IPアドレスを入力すると、そのIPに対応するドメイン名を表示してくれます。

Excelでnslookupを使う方法

Excelでは、VBA（Visual Basic for Applications）を使って、nslookupコマンドを実行し、その結果をセルに表示させることができます。以下の手順で設定してみましょう。

VBAエディターを開く

* Excelを開き、「Alt」キーを押しながら「F11」キーを押して、VBAエディターを開きます。

新しいモジュールを挿入する

* VBAエディターで、「挿入」メニューから「標準モジュール」を選択します。

コードを入力する

* 以下のコードを新しく挿入したモジュールにコピー＆ペーストします。

vba

Function nslookup(ip As String) As String

    Dim objShell As Object

    Dim objExec As Object

    Dim strResult As String

    Dim arrLines As Variant

    Dim i As Integer
    Set objShell = CreateObject("WScript.Shell")

    Set objExec = objShell.Exec("nslookup " & ip)
    strResult = objExec.StdOut.ReadAll

    arrLines = Split(strResult, vbCrLf)
    For i = 0 To UBound(arrLines)

        If InStr(arrLines(i), "Name:") > 0 Then

            nslookup = Trim(Mid(arrLines(i), InStr(arrLines(i), ":") + 1))

            Exit Function

        End If

    Next i

nslookup = "ホスト名が見つかりません" End Function

セルで関数を使う

* Excelのセルに以下のように入力します。



=nslookup()

ここで、セルにIPアドレス（例192.168.1.1）が入力されていると、そのホスト名が表示されます。

注意点と補足

* この方法は、コマンドプロンプト（cmd）を利用してnslookupコマンドを実行しています。そのため、インターネットに接続されている必要があります。
* 一部のIPアドレス（特にプライベートIPアドレス）については、ホスト名が登録されていない場合があります。その場合、「ホスト名が見つかりません」と表示されます。
* Excelのセキュリティ設定によっては、VBAマクロの実行が制限されている場合があります。設定を確認し、必要に応じてマクロの実行を許可してください。