Hoe kun je een domeinnaam omkeren met notatie in Excel?

Soms kom je een taak tegen waarbij je de domeinnaam moet omkeren met behulp van notatie, zoals te zien is in de onderstaande schermafbeelding. Heb je handige trucs om dit snel op te lossen? In dit artikel introduceer ik twee methoden om het snel af te handelen.

Domeinnaam omkeren met notatie via VBA

String omkeren met een scheidingsteken met Tekst Omkeren

Domeinnaam omkeren met notatie via VBA

Hier is een macrocode die je kan helpen. Volg de onderstaande stappen in Excel:

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, kopieer en plak de code in het lege script.

VBA: Domeinnaam omkeren met notatie

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. Druk op F5 toets, er verschijnt een dialoogvenster dat je eraan herinnert een bereik te selecteren om mee te werken.

4. Klik op OK.

String omkeren met een scheidingsteken met Tekst Omkeren

Als je Kutools voor Excel hebt, kan de functie Tekst Omkeren je helpen een string om te keren zoals je nodig hebt.

Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende: (Download nu gratis Kutools voor Excel!)

1. Selecteer de string die je gebruikt, klik op Kutools > Tekst > Tekst Omkeren.

2. In het Tekst Omkeren dialoogvenster, selecteer een optie die je nodig hebt om tekst te keren op basis van.

3. Klik op Ok, en de tekststrings zijn omgekeerd.