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.