VBA实用小程序53: 快速处理上标

论坛 期权论坛 期权     
完美Excel   2019-6-29 21:06   3131   0
学习Excel技术,关注微信公众号:
excelperfect

在数学表达式或者一些物理量纲中,我们经常需要使用到上标,如下图1所示。


图1

在我们设置或者取消上标时,都需要先选取要设置上标的字符,调出“设置单元格格式”对话框,在“字体”选项卡中选取或取消“上标”复选框前的勾选,如下图2所示。


图2

如果要处理的单元格区域中含有大量带有上标的文本,我们要一个个手动操作删除或取消上标,会非常繁琐。幸好有VBA,能够帮助我们自动快速地完成任务。

代码1:快速删除所选单元格中的上标字符
'删除所选单元格区域中所有上标
Sub DeleteSuperScript()
    Dim rng As Range
    Dim i As Long

    '确保选择的是单元格区域
    If TypeName(Selection) "Range" Then Exit Sub

    '关闭屏幕刷新
    Application.ScreenUpdating = False

    '遍历所选单元格
    For Each rng In Selection.Cells
        '遍历单元格中的每个字符
        For i = 1 To Len(rng.Value)
            '判断是否为上标
            If rng.Characters(i,1).Font.Superscript = True Then
                '删除
                rng.Characters(i, 1).Delete
                i = i - 1
            End If
        Next i
    Next rng
   
    '恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

代码2:快速取消所选单元格中的字符上标格式
'取消所选单元格中所有上标
Sub RemoveSuperScript()
    Dim rng As Range
    Dim i As Long

    '确保选择的是单元格区域
    If TypeName(Selection) "Range" Then Exit Sub

    '关闭屏幕刷新
    Application.ScreenUpdating = False

    '遍历所选单元格
    For Each rng In Selection.Cells
        '遍历单元格中的每个字符
        For i = 1 To Len(rng.Value)
            '判断是否为上标
            If rng.Characters(i, 1).Font.Superscript =True Then
                '取消上标格式
                rng.Characters(i,1).Font.Superscript = False
            End If
        Next i
    Next rng
   
    '恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

程序代码的图片版如下:





分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:195
帖子:39
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP