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

В Excel вы можете использовать функцию «Найти и заменить», чтобы заменить число надстрочным форматом, но она не работает, если вы хотите заменить его на подстрочный формат, как показано на скриншоте ниже. Однако у меня есть несколько трюков, которые я могу предложить вам для быстрого решения этой задачи в Excel.

Найти и заменить все числа на подстрочные с помощью VBA

Найти и заменить числа на подстрочные в химических формулах с помощью Kutools для Excel

Найти и заменить все числа на подстрочные с помощью VBA

В Excel, кроме макросов, нет метода, который может помочь вам найти и заменить текст на подстрочный формат.

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте приведенный ниже код в пустой скрипт.

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 клавишу, появится диалоговое окно Kutools для Excel , которое напомнит вам выбрать рабочий диапазон. Смотрите скриншот:

4. После выбора нажмите OKи все числа в выбранном диапазоне будут преобразованы в подстрочный формат.

Найти и заменить числа на подстрочные в химических формулах с помощью Kutools для Excel

Помимо макросов, на самом деле вы можете применить простую утилиту, называемую Подстрочные числа в химических формулах, чтобы быстро преобразовать все обычные числа в химических формулах в подстрочный формат, если у вас установлен Kutools для Excel.

После бесплатной установки Kutools для Excel выполните следующие действия:

Выберите ячейки, в которых вы хотите отформатировать числа как подстрочные, нажмите Kutools > Текст > Подстрочные числа в химических формулах. Смотрите скриншот:

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

  Преобразование чисел в подстрочные в химической формуле