当前位置：你问我答网 > 教育

如图，EXCEL中如何批量设置上标？

2020-09-26 教育 74阅读
用VBA即可，很实用，刚学来的分享一下。
Sub 上标()
Dim rG As Range, i As Integer
For Each rG In ActiveSheet.UsedRange
For i = 1 To Len(rG)
If Mid(rG, i, 1) Like "[a-z]" Then
rG.Characters(i, 1).Font.Superscript = True
End If
Next i
Next
End Sub
声明：你问我答网所有作品（图文、音视频）均由用户自行上传分享，仅供网友学习交流。若您的权利被侵害，请联系fangmu6661024@163.com
0

猜你喜欢