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