excel拖动排列步骤如下：1.我在EXCEL中输入以下数字，如图：2.现在我要想复制“1”，则拖动单元格A1，但此该你会发现，在下拖动下方有个方框，如图：3.上步出现的情况便是以顺序的方式出现，但你只需要点动那个右下方的方框，选择“复制单元格”即可......
VBA快速处理上标
Excel教程
2022-01-07 22:10:53
在数学表达式或者一些物理量纲中，我们经常需要使用到上标，如下图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
广告算法图解
作者：【美】巴尔加瓦（Aditya Bhargava）
当当
代码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
标签： Excel图表制作Excel常用函数excel数据透视表excel教程
上一篇：excel队列 下一篇：excel图表技巧：显示数据有效性列表
相关文章