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=TrueEnd Sub
5、选择区域，使用快捷键钽吟篑瑜Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将弹出输入符号之对话框，如图2.15所示，默认为“#”，可以输入任意字符
