快速设置单元格中字符格式

在Office组件中可以使用【插入】选项卡>>【公式】按钮（如下图）打开公式编辑器。

使用公式编辑器在Excel插入的公式其实是一个文本框对象。

但是如果需要在单元格中输入公式，操作起来就比较麻烦了。

首先，单元格处于编辑状态时，【开始】选项卡中的单元格格式功能被禁用。

此时只能使用<Ctrl+1>组合键打开【设置单元格格式】对话框。

其次，【设置单元格格式】对话框激活时，无法选中单元格中其它字符，只能先点击【确定】按钮关闭对话框，然后再选中单元格中其它字符。
如此操作三次，才能分别设置三个平方项的格式。

如果使用VBA代码，可以很轻松地输入这个公式。

Sub InputFormula()
    Dim strFormula As String
    Dim objChar As Characters
    Dim i As Integer
    strFormula = "C2=A2+B2"
    With ActiveCell
        .FormulaR1C1 = strFormula
        For i = 1 To VBA.Len(strFormula)
            Set objChar = .Characters(Start:=i, Length:=1)
            If VBA.IsNumeric(objChar.Text) Then _
               objChar.Font.Superscript = True
        Next i
    End With
End Sub

执行代码，在活动单元格中输入公式如下：

【代码解析】
第5行代码是设置输入的公式（无格式）。
第8到12行代码使用循环结构逐个处理单元格中公式的字符。
第9行代码获取第i个字符对象。
第10行代码判断该字符是否为数字。如果是数字，则第11行代码将该字符设置为上标。