Как быстро найти и заменить символ надстрочным знаком в 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% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек