ExcelでIPアドレスをゼロで埋める方法は？

一部のセグメントにXNUMX桁のIPアドレスが含まれているシートを受け取った場合、以下のスクリーンショットに示すように、すべてのセグメントにXNUMX〜XNUMX桁の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アドレスです。を押します。 入力します キーを押しながら、塗りつぶしハンドルをこの数式が必要なセルまでドラッグします。 スクリーンショットを参照してください：

定義された関数によってIPアドレスをゼロで埋める

VBAコードに精通している場合は、IPアドレスの埋め込みにも役立つコードを次に示します。

1。 押す Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール 新しいモジュールを作成します。 スクリーンショットを参照してください：

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の名前のリストに追加するにはどうすればよいですか？