ExcelでIPアドレスをゼロで埋めるにはどうすればよいですか？

2桁のセグメントを持つIPアドレスが含まれているシートを受け取った場合、すべてのセグメントが3桁になるようにIPアドレスをゼロで埋めたいと思うかもしれません。以下のスクリーンショットに示すようにです。この記事では、ExcelでIPアドレスを迅速にゼロで埋めるためのいくつかの方法を紹介します。

数式を使用してIPアドレスをゼロで埋める

定義された関数を使用してIPアドレスをゼロで埋める

数式を使用してIPアドレスをゼロで埋める

以下は、IPアドレスを迅速にゼロで埋めるのに役立つ長い数式です。

空白のセルを選択し、この数式を入力します：

=TEXT(LEFT(A1,FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND(".",A1)+1,FIND("~",SUBSTITUTE(A1,".","~",2))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",2))+1,FIND("~",SUBSTITUTE(A1,".","~",3))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND("~",SUBSTITUTE(A1,".","~",3))+1,LEN(A1)-FIND(".",A1)-1),"000")

A1は使用するIPアドレスです。Enterキーを押して、この数式が必要なセルまでフィルハンドルをドラッグします。スクリーンショットをご覧ください：

定義された関数を使用してIPアドレスをゼロで埋める

VBAコードに精通している場合、IPアドレスをゼロで埋めるのに役立つコードがあります。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開き、 挿入 > モジュール をクリックして新しいモジュールを作成します。スクリーンショットをご覧ください：

2. モジュールスクリプトで、以下のコードを貼り付け、コードを保存してVBAウィンドウを閉じます。スクリーンショットをご覧ください：

VBA: IPアドレスをゼロで埋める

Function IP(Txt As String) As String
'UpdatebyExtendoffice20170725
    Dim xList As Variant
    Dim I As Long
    xList = Split(Txt, ".")
    For I = LBound(xList) To UBound(xList)
        xList(I) = Format(xList(I), "000")
    Next
    IP = Join(xList, ".")
End Function

3. 計算結果を配置したい空白のセルに移動し、この数式 =IP(A1) を入力して Enterキーを押し、必要なセルまでフィルハンドルをドラッグします。スクリーンショットをご覧ください：

関連記事

• ExcelでIPアドレスから文字列を抽出するにはどうすればよいですか？
• Excelで名前のリストに同じメールアドレスを追加するにはどうすればよいですか？