IPアドレスによるExcel列の並べ替え

ネットワーク内のアイテム（プリンター、サーバー、ワークステーション、ネットワークプロジェクターなど）を一覧表示するかなり大きな（200行を超える）Excelスプレッドシートがあり、最初の列の1つはIPアドレスフィールド192.168.x.yです。ソートしようとすると、問題は（例として）からに192.168.0.85なり192.168.0.9ます。私が見たいのは、それは論理的に（つまり、最後のオクテット、その後、最初の3つのオクテットに基づいてソートされ.1、.2、.3、など）。これは可能ですか？もしそうなら、どのように？

コメントでnixdaが言及したように、ヘルパー列はこれを可能にします。シートを後で維持するための2つのオプションがあります。

• スプリットヘルパー列にすべての新しいIPを追加します。
• 新しい追加については、テキストから列への手順を繰り返します。

手順は次のとおりです。

1. IP列を選択し、Data> をクリックしますText-to-Columns

2. Delimtedオプションを選択し、Nextをクリックします。チェックOtherボックスをオンにして、期間を入力します.。次へをクリックします。

3. すべての列を保持し、一般のままにして、範囲アイコンをクリックしてDestinationセクションを編集します。

4. 新しいテキストを表示する列を選択します。Enterキーを押します。

5. 範囲が選択されていることを確認し、Data> をクリックしますSort。ソート基準を入力します。各オクテットのレベルを追加し続けます。

6. 最終結果は次のとおりです。

これは古い投稿であることがわかりましたが、実用的なソリューションを提供するために、以下を紹介します。

この式を隣接セルに入力し、参照を更新して、IPアドレス（この例ではA1）を含むセルを指すようにします。これにより、010.121.008.030のような結果が生成され、アルファベット順に（正しく）ソートできます。次に、新しい列の幅をゼロに設定します。一杯のコーヒーを楽しむ時間。

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

Sub IPSplit()

HeaderRow = 1
ColimnName = "A"
BeginIPaddsressData = 2

Dim HeaderArray As Variant
HeaderArray = Array("IP oct 1", "IP oct 2", "IP oct 3", "IP oct 4")

Dim Octet() As String
Dim RangeSearch As Range, RangeFound As Range, LastCell As Range
Dim LastCellRowNumber As Long, LastCellColumnNumber As Long, RowNumber As Long

With ActiveSheet
Set LastCell = .Cells(HeaderRow, .Columns.Count).End(xlToLeft)
LastHeaderColumnNumber = LastCell.Column

Set RangeSearch = Range("1:1")
Set RangeFound = RangeSearch.Find(What:=HeaderArray(0), LookIn:=xlValues)

If RangeFound Is Nothing Then
RowNumber = 2
    If .Cells(RowNumber, .Columns.Count) <> vbNullString Then
        Set LastCell = .Cells(RowNumber, .Columns.Count)
        LastCellColumnNumber = LastCell.Column
    Else
        Set LastCell = .Cells(RowNumber, .Columns.Count).End(xlToLeft)
'Specifies the last column LastCellColumnNumber.

        LastCellColumnNumber = LastCell.Column
    End If

Range(Cells(HeaderRow, LastCellColumnNumber + 1), Cells(HeaderRow, LastCellColumnNumber + 4)).Value = HeaderArray
'Insert Header

Else
LastCellColumnNumber = RangeFound.Column - 1
End If

Set LastCell = .Cells(.Rows.Count, ColimnName).End(xlUp)
'Specifies the last cell number in the column ColimnName.

LastCellRowNumber = LastCell.Row   
End With

    For I = BeginIPaddsressData To LastCellRowNumber

    Octet = Split(Cells(I, ColimnName).Value, ".")
    For O = 0 To 3       
'cells populate the values of octets 1-4.
      If (UBound(Octet) - O) >= 0 Then      
         Cells(I, ColimnName).Offset(0, LastCellColumnNumber + O).Value = Octet(O)
      End If
    Next
Next
End Sub

ジョン・ホーマーの答えに加えて、ここではTEXT関数が存在しないため、AppleのNumbersアプリケーションでも機能する式を提供します。Googleドキュメントでもテストされています。

=DEC2HEX(LEFT(B2,FIND(".",B2)-1),2)
&
DEC2HEX(MID(
    B2,
    FIND(".",B2)+1,
    FIND(
        ".",
        B2,
        FIND(".",B2)+1
    ) - FIND(".",B2) - 1
),2)
&
DEC2HEX(MID(
    B2,
    FIND(
        ".",
        B2,
        FIND(".",B2)+1
    ) + 1,
    FIND(
        ".",
        B2,
        FIND(
            ".",
            B2,
            FIND(".",B2)+1
        )+1
    ) - FIND(
        ".",
        B2,
        FIND(".",B2)+1
    ) - 1
),2)
&
DEC2HEX(RIGHT(
    B2,
    LEN(B2) - FIND(
        ".",
        B2,
        FIND(
            ".",
            B2,
            FIND(".",B2)+1
        )+1
    )
),2)