Como ordenar rapidamente endereços IP do mais baixo para o mais alto no Excel?
Geralmente, utilizamos a função Ordenar para organizar cadeias de caracteres no Excel. No entanto, ao ordenar endereços IP, a sequência pode ficar incorreta se aplicarmos diretamente essa função, como ilustrado na imagem seguinte. Apresento agora algumas formas rápidas e corretas de ordenar endereços IP no Excel.
Ordenação incorreta com a função Ordenar
Ordenação correta
Ordenar endereços IP por fórmula
Utilize uma fórmula para preencher os endereços IP e, em seguida, ordene-os.
1. Selecione uma célula adjacente ao endereço IP e introduza a seguinte fórmula:
=TEXT(LEFT(A1,FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND( ".",A1,1)+1,FIND(".",A1,FIND(".",A1,1)+1)-FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND(".",A1,FIND(".",A1,1)+1)+1,FIND(".",A1, FIND(".",A1,FIND(".",A1,1)+1)+1)-FIND(".",A1,FIND(".",A1,1)+1)-1), "000") & "." & TEXT(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND( ".",A1,1)+1)+1)),"000")
Prima Enter e arraste a alça de preenchimento pelas células para aplicar esta fórmula.
2. Copie os resultados da fórmula e cole-os como valores na coluna seguinte. Veja a imagem:
 |
 |
3. Mantenha os valores colados selecionados e clique em Dados > Ascendente.
4. Na caixa de diálogo Aviso de Ordenação, mantenha selecionada a opção Expandir a seleção.
5. Clique em Ordenar. Agora, os endereços IP estão ordenados do mais baixo para o mais alto.
Pode eliminar as colunas auxiliares.
Ordenar endereços IP por VBA
Eis um código VBA que também o pode ajudar.1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e copie e cole o código no script em branco.
VBA: Preencher endereço IP
Sub FormatIP()
'UpdatbyExtendoffice20171215
Dim xReg As New RegExp
Dim xMatches As MatchCollection
Dim xMatch As Match
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim xArr() As String
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
With xReg
.Global = True
.Pattern = "\d{1,3}\.+\d{1,3}\.+\d{1,3}\.+\d{1,3}"
For Each xCell In xRg
Set xMatches = .Execute(xCell.Value)
If xMatches.Count = 0 Then GoTo xBreak
For Each xMatch In xMatches
xArr = Split(xMatch, ".")
For I = 0 To UBound(xArr)
xArr(I) = Right("000" & xArr(I), 3)
If I <> UBound(xArr) Then
xArr(I) = xArr(I) & "."
End If
Next
Next
xCell.Value = Join(xArr, "")
xBreak:
Next
End With
End Sub
3. Em seguida, clique em Ferramentas > Referências e marque a opção Microsoft VBScript Regular Expressions 5,5 na caixa de diálogo que surge.
 |
 |
4. Clique em OK e prima a tecla F5. Surge, então, uma caixa de diálogo a solicitar que selecione um intervalo para trabalhar.
5. Clique em OK. Os endereços IP foram então preenchidos com zeros.
6. Selecione os endereços IP e clique em Dados > Ascendente para os ordenar.
Ordenar endereços IP com Texto em Colunas
Na verdade, a funcionalidade Texto em Colunas também pode ser uma grande aliada no Excel.
1. Selecione as células que utiliza e clique em Dados > Texto em Colunas. Veja a imagem:
2. Na caixa de diálogo Assistente para converter texto em colunas, proceda da seguinte forma:
Marque a opção Delimitadoe clique em Seguinte;
Marque a opção Outroe introduza .na caixa de texto e clique em Seguinte;
Selecione uma célula junto ao endereço IP para colocar o resultado e clique em Concluir.
 |
 |
 |
3. Selecione todas as células que contêm os endereços IP, clique em Dados > Ordenar e utilize a função Dividir Células.
4. Na caixa de diálogo Ordenar, clique em Adicionar condições para ordenar os dados das colunas B a E (o Dividir Células). Veja a imagem:
5. Clique em OK. As colunas foram agora ordenadas.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos