怎样使用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所雁岔示，所有“#”号都在瞬间以上标显示