批量将Excel所选单元格中的数字变为下标

十氧化四磷

最近遇到一个需求,实验室的同事说经常要在Excel里输入各种化学式,化学式里有很多数字下标,但是在Excel里改下标需要一个一个改,太麻烦了。于是,我给写了一段VBA,一键批量将Excel所选单元格中的数字变为下标:

Sub 批量改下标()
  Application.ScreenUpdating = True  '禁用屏幕自动刷新,提高运行效率
  Dim selectedRange As Range  '所选单元格Range
  Dim strLength As Integer '单元格内字符串长度
  Dim i As Integer
  
  For Each selectedRange In Selection
    strLength = Len(selectedRange.Text)
    For i = 1 To strLength
      If IsNumeric(Mid(selectedRange.Text, i, 1)) = True Then  '如果是数字,则执行下标变换
        selectedRange.Characters(Start:=i, Length:=1).Font.Subscript = True
      End If
    Next
  Next
    Application.ScreenUpdating = True '恢复屏幕自动刷新
End Sub

最后运行效果:

一键改下标

阅读 5.4k

且行且知
记录一个有追求的外行程序员遇到的坑
83 声望
1 粉丝
0 条评论
你知道吗?

83 声望
1 粉丝
文章目录
宣传栏