怎样使用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所示，默认为“#”，可以输入任意字符