1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 标示上标()Dim TRan As Range, FirstAddress As String, FindStr As String, i, j, k, lFindStr = "#" '标上上标的字符串With Selection Set TRan = .Find(FindStr, LookIn:=xlValues, lookat:=xlPart) '设定查找值 If Not TRan Is Nothing Then '如果找到 FirstAddress = TRan.Address '记录地址 Do '开始循环 i = (Len(TRan.Value) - Len(WorksheetFunction.Substitute(TRan.Value, FindStr, ""))) / Len(FindStr) k = 1 For j = 1 To i l = WorksheetFunction.Find(FindStr, TRan.Value, k) TRan.Characters(Start:=l, Length:=Len(FindStr)).Font.Superscript = True '标示上标 k = l + Len(FindStr) Next '查找下一个 Set TRan = .FindNext(TRan) Loop While Not TRan Is Nothing And TRan.Address <> FirstAddress '直到返回第一个地址 End IfEnd WithEnd Sub
5、选择区域，使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，结果如图2.14所示，所有“#”号都在瞬间以上标显示
