Hur omvänd domännamn genom notering i Excel?

Ibland kan du stöta på ett jobb med att vända domännamnet genom notering, som visas nedan, har du några knep för att snabbt lösa det? I den här artikeln introducerar jag två metoder för att snabbt hantera det.

Omvänd domännamn med notering med VBA

Omvänd sträng med en avgränsare med omvänd textordning

Omvänd domännamn med notering med VBA

Här är en makrokod som kan hjälpa dig, gör så här i Excel:

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna, kopiera och klistra in koden i det tomma skriptet.

VBA: Omvänd domännamn efter notation

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. Tryck F5 En dialogruta dyker upp för att påminna dig om att välja ett intervall som ska fungera.

4. klick OK.

Omvänd sträng med en avgränsare med omvänd textordning

Om du har Kutools för Excel kan funktionen Omvänd textordning hjälpa dig att vända en sträng som du behöver.

När du har installerat Kutools för Excel, gör så här: （Gratis nedladdning Kutools för Excel nu!)

1. Välj strängen du använder, klicka Kutools > text > Omvänd textordning.

2. I Omvänd text väljer du ett alternativ som du behöver vända text baserat på.

3. klick Ok, och textsträngarna har vänts om.