¿Cómo invertir el nombre de dominio por notación en Excel?

A veces, puede que te encuentres con la tarea de invertir el nombre de dominio por notación como se muestra en la captura de pantalla a continuación. ¿Tienes algún truco para resolverlo rápidamente? En este artículo, presento dos métodos para manejarlo rápidamente.

Invertir el nombre de dominio por notación con VBA

Invertir cadena por un delimitador con Invertir Texto

Invertir el nombre de dominio por notación con VBA

Aquí hay un código macro que puede ayudarte; por favor, sigue los siguientes pasos en Excel:

1. Presiona las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, copia y pega el código en el script en blanco.

VBA: Invertir el nombre de dominio por notación

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. Presiona F5 y aparecerá un cuadro de diálogo recordándote que selecciones un rango para trabajar.

4. Haz clic en Aceptar.

Invertir cadena por un delimitador con Invertir Texto

Si tienes Kutools para Excel, la función Invertir Texto puede ayudarte a invertir una cadena según lo necesites.

Después de instalar Kutools para Excel, por favor haz lo siguiente: （¡Descarga gratuita de Kutools para Excel ahora!)

1. Selecciona la cadena que estás utilizando, haz clic en Kutools > Texto > Invertir Texto.

2. En el Invertir Texto cuadro de diálogo, selecciona la opción que necesitas para invertir el texto basado en.

3. Haz clic en Aceptar, y las cadenas de texto se habrán invertido.