Как быстро найти и заменить символ с верхним индексом в 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 для приложений.
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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек