Excel 怎么实现批量上标功能
答案:1 悬赏:50 手机版
解决时间 2021-01-01 19:33
- 提问者网友：沉默菋噵
- 2021-01-01 15:57
Excel 怎么实现批量上标功能
最佳答案
- 五星知识达人网友：蕴藏春秋
- 2021-01-01 17:01
需要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
代码如下，详见附件。
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯