Как перевернуть доменное имя с помощью нотации в Excel?
Иногда вам может понадобиться перевернуть доменное имя с помощью нотации, как показано на скриншоте ниже. Есть ли у вас какие-либо хитрости для быстрого решения этой задачи? В этой статье я представляю два метода для быстрого выполнения этой операции.
![]() | ![]() | ![]() |
Переворот доменного имени с помощью нотации через VBA
Переворот строки по разделителю с помощью функции «Обратный порядок текста»![]()
Переворот доменного имени с помощью нотации через VBA
Вот макрос, который может помочь вам. Пожалуйста, следуйте инструкциям ниже в Excel:
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставить > Модуль, скопируйте и вставьте код в пустой скрипт.
VBA: Переворот доменного имени с помощью нотации
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. Нажмите F5 клавишу, появится диалоговое окно, напоминающее выбрать диапазон для работы.
4. Нажмите OK.
Переворот строки по разделителю с помощью функции «Обратный порядок текста»
Если у вас есть Kutools для Excel, функция «Обратный порядок текста» поможет вам перевернуть строку так, как вам нужно.
После установки Kutools для Excel, пожалуйста, сделайте следующее: (Бесплатная загрузка Kutools для Excel прямо сейчас!)
1. Выберите строку, которую вы используете, нажмите Kutools > Текст > Обратный порядок текста.
2. В Обратный текст диалоговом окне выберите нужную опцию для переворота текста на основе.
3. Нажмите Ok, и текстовые строки будут перевернуты.
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с Kutools для Excel и ощутите новую эффективность. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени. Щелкните здесь, чтобы получить наиболее нужную вам функцию...
Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
- Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!


