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

在Excel中怎么批量上标*？

2020-10-20 教育 81阅读
需要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 "[0-9]" Then
rG.Characters(i, 1).Font.Superscript = True
End If
Next i
Next
End Sub
声明：你问我答网所有作品（图文、音视频）均由用户自行上传分享，仅供网友学习交流。若您的权利被侵害，请联系fangmu6661024@163.com
0

猜你喜欢