ExcelでIPアドレスを低い順に素早く並べ替えるにはどうすればよいですか？

通常、Excelでは文字列を並べ替えるために「並べ替え」機能を使用します。しかし、IPアドレスを並べ替える必要がある場合、下のスクリーンショットのように「並べ替え」機能を直接使用すると、並べ替えの順序が間違っている可能性があります。ここでは、ExcelでIPアドレスを迅速かつ正確に並べ替えるいくつかの方法をご紹介します。

並べ替え機能による誤った並べ替え

正しい並べ替え

数式でIPアドレスを並べ替える

VBAでIPアドレスを並べ替える

「テキストから列へ」でIPアドレスを並べ替える

数式でIPアドレスを並べ替える

数式を使ってIPアドレスを入力し、その後並べ替えます。

1. IPアドレスの隣にあるセルを選択し、次の数式を入力します。

=TEXT(LEFT(A1,FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND( ".",A1,1)+1,FIND(".",A1,FIND(".",A1,1)+1)-FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND(".",A1,FIND(".",A1,1)+1)+1,FIND(".",A1, FIND(".",A1,FIND(".",A1,1)+1)+1)-FIND(".",A1,FIND(".",A1,1)+1)-1), "000") & "." & TEXT(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND( ".",A1,1)+1)+1)),"000")

押して Enter キーを押し、この数式を適用するためにセル上にフィルハンドルをドラッグします。

2. 数式の結果をコピーし、次の列に値として貼り付けます。スクリーンショットをご覧ください：

3. 貼り付けた値を選択したまま、「 データ > 昇順（A から Z）.

4. 「 並べ替えの警告 」ダイアログで、「 選択範囲を拡張する 」にチェックを入れておきます。

5. 「 並べ替え」をクリックします。これで、IPアドレスが低い順に並べ替えられました。

補助列を削除することができます。

VBAでIPアドレスを並べ替える

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを有効にします。

2. 「挿入」＞「モジュール」をクリックし、コードを空白のスクリプトにコピーして貼り付けます。

VBA: IPアドレスを入力

Sub FormatIP()
'UpdatbyExtendoffice20171215
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim xArr() As String
    On Error Resume Next
    Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    With xReg
        .Global = True
        .Pattern = "\d{1,3}\.+\d{1,3}\.+\d{1,3}\.+\d{1,3}"
        For Each xCell In xRg
            Set xMatches = .Execute(xCell.Value)
            If xMatches.Count = 0 Then GoTo xBreak
            For Each xMatch In xMatches
                xArr = Split(xMatch, ".")
                For I = 0 To UBound(xArr)
                    xArr(I) = Right("000" & xArr(I), 3)
                    If I <> UBound(xArr) Then
                        xArr(I) = xArr(I) & "."
                    End If
                Next
            Next
            xCell.Value = Join(xArr, "")
xBreak:
        Next
    End With
End Sub

3. 次に「ツール」＞「参照設定」をクリックし、表示されるダイアログで「Microsoft VBScript Regular Expressions 5.5」にチェックを入れます。

4. 「 OK 」をクリックし、「 F5 」キーを押すと、作業範囲を選択するように促すダイアログが表示されます。

5. 「OK」をクリックします。これで、IPアドレスがゼロで埋められます。

6. IPアドレスを選択し、「 データ > 昇順（A から Z） 」をクリックして並べ替えます。

「テキストから列へ」でIPアドレスを並べ替える

実際、「テキストから列へ」機能もExcelで役立ちます。

1. 使用するセルを選択し、「 データ > テキストから列へ」をクリックします。スクリーンショットをご覧ください：

2. 「テキストを列に変換ウィザード」ダイアログで、以下のように操作します：

「区切り文字」にチェックを入れ、「次へ」をクリックします；

「その他」にチェックを入れ、テキストボックスに「 .」を入力し、「次へ」をクリックします；

IPアドレスの隣にあるセルを選択して結果を配置します。「完了」をクリックします。

3. IPアドレスと分割されたセルを含むすべてのセルを選択し、「 データ > 並べ替え.

4. 「 並べ替え 」ダイアログで、「 条件の追加 」をクリックして、列BからE（分割されたセル）のデータを並べ替えます。スクリーンショットをご覧ください：

5. 「 OK」をクリックします。これで列が並べ替えられました。