Как быстро найти и заменить символ надстрочным знаком в Excel?

Поиск и замена надстрочными символами с помощью функции «Найти и заменить»
Поиск и замена надстрочными символами с помощью VBA
Поиск и замена надстрочными символами с помощью функции «Найти и заменить»
На самом деле, вы можете использовать функцию «Найти и заменить», чтобы найти текст и заменить его в формате надстрочного индекса.
1. Выберите диапазон, в котором хотите выполнить поиск и замену, и нажмите Ctrl + H, чтобы открыть диалоговое окно «Найти и заменить».
2. В Найти и заменить диалоговом окне нажмите Заменить вкладку, а затем введите текст, который нужно найти, в поле Найти текстовое поле. Смотрите скриншот:
3. Затем перейдите к Заменить на текстовому полю, введите текст, который хотите заменить, обратите внимание, удерживайте клавишу Alt и затем нажмите 0179 клавиши на Цифровой клавиатуре чтобы ввести надстрочный номер 3. Смотрите скриншот:
4. Нажмите Заменить все. Появится диалоговое окно, которое сообщит вам, сколько замен было выполнено. Смотрите скриншот:
Совет: С помощью этого метода вы можете сделать надстрочными только цифры 2 (нажав 0178) и 3 (нажав 0179).

Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Поиск и замена надстрочными символами с помощью VBA
С помощью функции «Найти и заменить» можно заменить только числа надстрочными символами. Если вы хотите заменить буквы надстрочными символами, как показано на скриншоте ниже, вы можете применить код VBA для решения этой задачи.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Нажмите Вставить > Модуль и вставьте следующий код VBA в скрипт.
VBA: Поиск и замена с форматированием надстрочного индекса
Sub DoConvert()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. Нажмите F5 , чтобы запустить код, и появится диалоговое окно, которое предложит выбрать диапазон. Смотрите скриншот:
4. Нажмите ОК, и конкретный символ в определённой строке будет преобразован в формат надстрочного индекса в выбранном диапазоне. Смотрите скриншот:
Совет: В коде «YL3» — это строка, которую вы хотите найти, а (1, 1) указывает на преобразование первого символа строки. Если вы хотите преобразовать первые два символа, вы можете изменить это на (1, 2), если же вы хотите преобразовать один символ, начиная со второго символа строки, вы можете изменить это на (2, 1).
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с Kutools для Excel и ощутите новую эффективность. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени. Щелкните здесь, чтобы получить наиболее нужную вам функцию...
Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
- Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!