如何在 Excel 中用零填充 IP 地址？

当收到一个包含某些段落只有两位数字的 IP 地址的工作表时，您可能希望用零填充 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 中为名称列表添加相同的电子邮件地址？