Como inverter o nome de domínio por notação no Excel?
Às vezes, você pode se deparar com a tarefa de inverter o nome de domínio por notação, conforme mostrado na captura de tela abaixo. Você tem algum truque para resolvê-la rapidamente? Neste artigo, apresento dois métodos para lidar com isso rapidamente.
 |  |  |
Inverter nome de domínio por notação com VBA
Inverter sequência por um delimitador com Inverter Texto
Inverter nome de domínio por notação com VBA
Aqui está um código de macro que pode ajudá-lo; por favor, siga os passos abaixo no Excel:
1. Pressione as teclas Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, copie e cole o código no script em branco.
VBA: Inverter nome de domínio por notação
Sub Reverse()
'UpdatebyExtendoffice2017115
Dim xArr() As String
Dim xSplitStr As String
Dim xVal As String
Dim xRg As Range
Dim xCell As Range
Dim xIndex As Long
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xSplitStr = "."
For Each xCell In xRg
If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
xVal = ""
xArr = Split(xCell.Value, xSplitStr)
xIndex = UBound(xArr)
xVal = xArr(xIndex)
Do
xIndex = xIndex - 1
xVal = xVal & xSplitStr & xArr(xIndex)
Loop While xIndex > 0
xCell.Value = xVal
xBreak:
Next
Application.ScreenUpdating = True
End Sub
3. Pressione F5 uma caixa de diálogo aparecerá para lembrá-lo de selecionar um intervalo para trabalhar.
4. Clique em OK.
Inverter sequência por um delimitador com Inverter Texto
Se você possui Kutools para Excel, o recurso Inverter Texto pode ajudá-lo a inverter uma sequência conforme necessário.
Após instalar Kutools para Excel, por favor, faça o seguinte: （Faça o Download Gratuito do Kutools para Excel Agora!)
1. Selecione a sequência que você deseja usar, clique Kutools > Texto > Inverter Texto.
2. Na Inverter Texto caixa de diálogo, selecione uma opção que você precisa para inverter o texto com base.
3. Clique em Ok, e as sequências de texto terão sido invertidas.
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