excel批量替换上标
?涯? 5级 2010-06-17
以下
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
是假设:
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