怎样使用VBA修改任意字符为上标？

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

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

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

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

Sub将任意字符标示为上标()

    Dim r As Range, i%, First$, inputt
    inputt=InputBox("上标对象", "请输入加上标之对象", "#")
    Application.ScreenUpdating=False
    Set r=Cells.Find(inputt, lookat:=xlPart) 'xlPart表示单元格不用完全匹配
    If Not r Is Nothing Then               '当找到时
      First=r.Address                 '用First记录下第一个单元格的地址
      Do                              '查找下一个循环过程
      For i=1 To Len(r)       '对找到的单元格，从第一个字符到最后一个字符
      If Mid(r, i, 1)=inputt Then '假如是inputt指定字符时，则设置它为上标
      r.Characters(Start:=i, Length:=1).Font.Superscript=True
    End If
      Next
      Set r=Cells.FindNext(r)    '在找到的单元格之后，查找新一个单元格
      Loop Until r.Address=First
                    '重复过程，直到最后找到的单元格的地址等于第一个单元格的地址
    End If
    Application.ScreenUpdating=True
End Sub

5、选择区域，使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将弹出输入符号之对话框，如图2.15所示，默认为“#”，可以输入任意字符