Как инвертировать доменное имя по обозначению в 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. Нажмите кнопку ОК.
Инвертирование строки с разделителем с помощью Изменить порядок символов
Если у вас установлен Kutools для Excel, воспользуйтесь функцией «Изменить порядок символов», чтобы легко перевернуть строку.
После установки Kutools для Excel выполните следующие действия:（Бесплатно скачать Kutools для Excel прямо сейчас!)
1. Выделите нужную строку и нажмите Kutools > Текст > Изменить порядок символов.
2. В диалоговом окне Перевернуть текст выберите нужный вариант, на основе которого будет выполняться переворот текста.
3. Нажмите кнопку ОК, и текстовые строки инвертируются.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек