Como reverter o nome de domínio por notação no Excel?
Às vezes, você pode se deparar com a tarefa de reverter o nome de domínio por notação conforme a imagem mostrada abaixo. Você tem algum truque para resolver isso rapidamente? Neste artigo, apresento dois métodos para lidar com isso rapidamente.
Nome de domínio reverso por notação com VBA
String reversa por um separador com ordem de texto reversa
Nome de domínio reverso por notação com VBA
Aqui está um código de macro que pode ajudá-lo, faça o seguinte no Excel:
1. Pressione Alt + F11 chaves para habilitar o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, copie e cole o código no script em branco.
VBA: nome de domínio reverso 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 aparece para lembrá-lo de selecionar um intervalo para trabalhar.
4. Clique OK.
String reversa por um separador com ordem de texto reversa
Se você tiver o Kutools para Excel, o recurso Reverter ordem de texto pode ajudá-lo a reverter uma string conforme necessário.
Kutools for Excel, com mais de 120 funções úteis, tornam seus trabalhos mais fáceis. | ||
Depois de instalar Kutools para Excel, faça o seguinte: (Baixe gratuitamente o Kutools para Excel agora!)
1. Selecione a string que você usa e clique em Kutools > Texto > Ordem reversa do texto.
2. No Texto reverso caixa de diálogo, selecione uma opção que você precisa para reverter o texto com base.
3. Clique Ok, e as sequências de texto foram invertidas.
Demo
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!