怎样使用VBA把“#”号以上标显示?

1、首先在开发工具中打开VBA编辑器

2、在单国涛元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 标示上标()

Dim TRan As Range, FirstAddress As String, FindStr As String, i, j, k, l
FindStr = "#"                           '标上上标的字符串
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 If
End With
End Sub

5、选择区域，使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，结果如图2.14所雁岔示，所有“#”号都在瞬间以上标显示