Як знайти та замінити цифри на індекс в Excel?

В Excel ви можете використовувати функцію "Знайти і замінити", щоб замінити номер на верхній індекс, але це не спрацює, коли ви хочете замінити на індексний формат, як показано на знімку екрана нижче. Однак у мене є кілька хитрощів, які можна швидко представити для вирішення цього питання в Excel.

Знайдіть і замініть усі числа на індекс за допомогою VBA

Знайдіть і замініть числа на нижній індекс у хімічних формулах Kutools для Excel

Знайдіть і замініть усі числа на індекс за допомогою VBA

В Excel, крім макрокоду, жоден метод не може допомогти вам знайти та замінити текст на формат підрядкового тексту.

1. прес Alt + F11 клавіша для відображення Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модуліі вставте код нижче в порожній сценарій.

VBA: Знайдіть і замініть усі числа на індексний формат

Sub SubscriptNumbers()
'UpdatebyExtendoffice20160705
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim I As Long
    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
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xTxt = xCell.Value
        For I = 1 To Len(xTxt)
            xChar = Mid(xTxt, I, 1)
            If xChar >= "0" And xChar <= "9" Then
                xCell.Characters(I, 1).Font.Subscript = True
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

3. прес F5 ключ, a Kutools для Excel спливає діалогове вікно, щоб нагадати вам про вибір робочого діапазону. Дивіться знімок екрана:

4. Після вибору натисніть OK, а всі номери у виділенні перетворені на індекси.

Знайдіть і замініть числа на нижній індекс у хімічних формулах Kutools для Excel

На додаток до коду макросу, насправді, ви можете застосувати просту утиліту під назвою Номери нижнього індексу в хімічних формулах для швидкого перетворення всіх нормальних чисел у хімічних формулах у формат нижнього індексу, якщо ви встановили Kutools для Excel.

після безкоштовна установка Kutools для Excel, будь-ласка, виконайте наведені нижче дії:

Виділіть клітинки, які потрібно відформатувати, як індекс, натисніть Кутулс > текст > Номери нижнього індексу в хімічних формулах. Дивіться знімок екрана:

І з’явиться діалогове вікно, щоб нагадати, скільки клітинок було перетворено, а числа у вибраних хімічних формулах були відформатовані як формат нижчого індексу.

  Перетворення числа в індекс в хімічній формулі

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...