excel批量替换上标

excel批量替换上标 ?涯? 5级 2010-06-17 以下方法是假设: 1、你的表格在sheet1中 2、每个单元格中只有1个# 解法如下: 1、同时按Alt+F11进入宏界面，点菜单的插入，模块，粘贴如下代码: Sub Superscript() With Worksheets(1).Range("a1:z65536") Set C = .Find(What:="#", LookIn:=xlFormulas) If Not C Is Nothing Then firstAddress = C.Address Do C.Characters(Start:=InStr(C, "#"), Length:=1).Font.Superscript = True Set C = .FindNext(C) Loop While Not C Is Nothing And C.Address <> firstAddress End If End With End Sub 2、运行宏中的Superscript就可以了 3、如有不明白可以联系我，QQ:22417575