Como preencher endereços IP com zero no Excel?

Ao receber uma planilha que contém alguns endereços IP com dois dígitos em alguns segmentos, você pode querer preencher o endereço IP com zeros para que cada segmento tenha três dígitos, conforme mostrado na captura de tela abaixo. Neste artigo, apresento alguns truques para preencher rapidamente endereços IP no Excel.

Preencher endereço IP com zero usando fórmula

Preencher endereço IP com zero por Função Definida

Preencher endereço IP com zero usando fórmula

Aqui está uma fórmula longa que pode ajudá-lo a preencher rapidamente o endereço IP com zero.

Selecione uma célula em branco e digite esta fórmula:

=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 é o endereço IP que você está utilizando. Pressione a tecla Enter e arraste a alça de preenchimento para baixo até as células que precisam dessa fórmula. Veja a captura de tela:

Preencher endereço IP com zero por Função Definida

Se você está familiarizado com código VBA, aqui está um código que também pode ajudá-lo a preencher os endereços IP.

1. Pressione Alt + F11 para habilitar a janela do Microsoft Visual Basic for Applications clique em Inserir > Módulo para criar um novo módulo. Veja a captura de tela:

2. No script do Módulo, cole o código abaixo nele, depois salve o código e feche a janela do VBA. Veja a captura de tela:

VBA: Preencher Endereço 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. Vá para uma célula em branco onde deseja colocar o resultado calculado, digite esta fórmula =IP(A1), pressione a tecla Enter e arraste a alça de preenchimento para baixo até as células que você precisa. Veja a captura de tela:

Artigos Relacionados

• Como extrair uma sequência de um endereço IP no Excel?
• Como adicionar o mesmo endereço de e-mail a uma lista de nomes no Excel?