Excel中如何用公式或VBA自动将输出文本中的数字设为下标

一、Excel自动将文本中的数字设置为下标 #

1. VBA动态处理（适配内容变化） #

公式无法直接设置单元格字符格式，用VBA可以实现内容变化时自动把数字转成下标，步骤如下：

• 右键目标工作表的标签（比如Sheet1），选择「查看代码」
• 粘贴以下代码到代码窗口：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim i As Integer
    ' 调整Range("A:C")为你需要处理的单元格范围
    Set cell = Intersect(Target, Me.Range("A:C"))
    If Not cell Is Nothing Then
        Application.EnableEvents = False ' 避免循环触发事件
        For Each cell In cell
            If cell.Value <> "" Then
                For i = 1 To Len(cell.Value)
                    ' 判断当前字符是否为数字，是则设为下标
                    If IsNumeric(Mid(cell.Value, i, 1)) Then
                        cell.Characters(Start:=i, Length:=1).Font.Subscript = True
                    Else
                        cell.Characters(Start:=i, Length:=1).Font.Subscript = False
                    End If
                Next i
            End If
        Next cell
        Application.EnableEvents = True
    End If
End Sub

• 回到工作表后，只要指定范围（比如A-C列）的单元格内容更新，里面的数字会自动变成下标格式（比如输入C2O2H会自动变成C₂O₂H）。

2. 公式+条件格式（无需VBA的替代方案） #

如果不想用VBA，可通过条件格式实现：

• 选中需要处理的单元格区域
• 点击「开始」→「条件格式」→「新建规则」→选择「使用公式确定要设置格式的单元格」
• 输入公式：=ISNUMBER(MID(A1,COLUMN(A1),1)*1)（把A1换成你选中区域的左上角单元格）
• 点击「格式」→「字体」→勾选「下标」→确定
  这个方法会把单元格中每个位置的数字自动设为下标，但仅对已应用条件格式的区域生效，内容变化时需确保范围覆盖正确。

二、提问框中输入真实下标（如₂）的方法 #

• Windows系统：
  • 按住Alt键，用数字小键盘输入0832（下标2）、0833（下标3）、0831（下标1），松开Alt即可生成对应下标字符。
  • 或右键输入法图标→选择「软键盘」→「数学符号」，在软键盘中点击下标数字。
• Mac系统：
  • 选中数字后按Cmd + Shift + +（加号）可转成下标；直接输入的话，按Ctrl + Cmd + 空格打开特殊字符面板，搜索「下标」即可找到对应字符并插入。
• 也可以找到在线特殊字符库中的下标数字，复制粘贴到提问框。

内容的提问来源于stack exchange，提问作者user53617