Comment inverser le nom de domaine par notation dans Excel?
Parfois, vous pouvez rencontrer un travail sur l'inversion du nom de domaine par la notation comme ci-dessous la capture d'écran montrée, avez-vous des astuces pour le résoudre rapidement? Dans cet article, j'introduis deux méthodes pour le gérer rapidement.
![]() |
![]() |
![]() |
Inverser le nom de domaine par notation avec VBA
Inverser la chaîne par un séparateur avec ordre inverse du texte
Inverser le nom de domaine par notation avec VBA
Voici un code macro qui peut vous aider, procédez comme suit dans Excel:
1. presse Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module, copiez et collez le code dans le script vide.
VBA: nom de domaine inversé 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. presse F5 touche, une boîte de dialogue apparaît pour vous rappeler de sélectionner une plage pour travailler.
4. Cliquez OK.
Inverser la chaîne par un séparateur avec ordre inverse du texte
Si vous avez Kutools for Excel, la fonction Inverser l'ordre du texte peut vous aider à inverser une chaîne selon vos besoins.
Kutools for Excel, avec plus de 120 fonctions pratiques, facilite votre travail. | ||
Après l'installation de Kutools for Excel, veuillez faire comme ci-dessous: (Téléchargement Gratuit Kutools for Excel Maintenant!)
1. Sélectionnez la chaîne que vous utilisez, cliquez sur Kutools > Texte > Ordre du texte inversé.
2. dans le Reverse Text , sélectionnez une option sur laquelle vous devez inverser le texte.
3. Cliquez Oket les chaînes de texte ont été inversées.
Démo
Meilleurs outils de productivité bureautique
Boostez vos compétences Excel avec Kutools for Excelet faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel Offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab Apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
