如何在 Excel 中查找并将数字替换为下标？

在 Excel 中，您可以使用“查找和替换”功能将数字替换为上标格式，但当您想将其替换为下标格式时（如下截图所示），此功能不起作用。不过，我可以向您介绍一些技巧，帮助您快速解决 Excel 中的这个问题。

通过 VBA 查找并替换所有带下标的数字

使用 Kutools for 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 for Excel 对话框弹出，提醒您选择一个工作区域。请参见截图：

4. 选择后，单击 确定，所选区域中的所有数字都已转换为下标。

使用 Kutools for Excel 查找并替换化学公式中的下标数字

除了宏代码外，实际上，您可以应用一个名为“化学公式中的下标数字”的简单工具，如果您安装了 Kutools for Excel，则可以快速将化学公式中的所有普通数字转换为下标格式。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

选择要将数字设置为下标的单元格，单击 Kutools > 文本 > 化学公式中的下标数字。请参见截图：

弹出一个对话框，提醒您有多少个单元格已被转换，所选化学公式中的数字已设置为下标格式。

  将化学公式中的数字转换为下标