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?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins