Wie kehrt man einen Domainnamen in Excel um?

Manchmal stoßen Sie möglicherweise auf die Aufgabe, einen Domainnamen wie im folgenden Screenshot gezeigt umzukehren. Haben Sie Tricks, um dies schnell zu lösen? In diesem Artikel stelle ich zwei Methoden vor, um dies schnell zu bewältigen.

Domainnamen mit VBA umkehren

String mit „Text umkehren“ durch ein Trennzeichen umkehren

Domainnamen mit VBA umkehren

Hier ist ein Makrocode, der Ihnen helfen kann. Gehen Sie bitte wie folgt in Excel vor:

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, kopieren und fügen Sie den Code in das leere Skript ein.

VBA: Domainnamen mit Notation umkehren

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. Drücken Sie F5 Taste, es erscheint ein Dialogfeld, das Sie daran erinnert, einen Bereich auszuwählen, mit dem Sie arbeiten möchten.

4. Klicken Sie auf OK.

String mit „Text umkehren“ durch ein Trennzeichen umkehren

Wenn Sie Kutools für Excel haben, kann Ihnen die Funktion „Text umkehren“ dabei helfen, einen String nach Bedarf umzukehren.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor: (Kutools für Excel jetzt kostenlos herunterladen!)

1. Wählen Sie den String aus, den Sie verwenden, und klicken Sie auf Kutools > Text > Text umkehren.

2. Im Text umkehren Dialogfenster wählen Sie eine Option aus, basierend auf der Sie den Text umkehren möchten.

3. Klicken Sie auf Ok, und die Textstrings wurden umgekehrt.