Comment inverser le nom de domaine par notation dans Excel ?

Parfois, vous pourriez être confronté à la tâche d'inverser un nom de domaine par notation comme illustré dans la capture d'écran ci-dessous. Avez-vous des astuces pour résoudre cela rapidement ? Dans cet article, je présente deux méthodes pour y parvenir facilement.

Inverser le nom de domaine par notation avec VBA

Inverser une chaîne de caractères par un séparateur avec Inverser le texte

Inverser le nom de domaine par notation avec VBA

Voici un code macro qui peut vous aider. Veuillez suivre les étapes ci-dessous dans Excel :

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, copiez et collez le code dans le script vide.

VBA : Inverser le nom de domaine par 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. Appuyez sur F5 Une boîte de dialogue apparaît pour vous rappeler de sélectionner une plage de travail.

4. Cliquez sur OK.

Inverser une chaîne de caractères par un séparateur avec Inverser le texte

Si vous avez Kutools pour Excel, la fonctionnalité Inverser le texte peut vous aider à inverser une chaîne selon vos besoins.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit : （Téléchargement gratuit de Kutools pour Excel maintenant !)

1. Sélectionnez la chaîne que vous utilisez, puis cliquez sur Kutools > Texte > Inverser le texte.

2. Dans la Inverser le texte boîte de dialogue, sélectionnez l'option dont vous avez besoin pour inverser le texte en fonction.

3. Cliquez sur Ok, et les chaînes de texte ont été inversées.