[分享]：在Excel中快速设置或取消文本的上下标格式

xcajcj

在Excel中快速设置或取消文本上下标格式。具体操作见动画演示。
下面是上下标宏源代码，参照下面的动画演示将其复制粘贴在“模块”中即可。

'对于不同位置的上下标，只要变量A1的值即可。
'
Sub 上标()
Dim C1 As Range
Dim B1 As Integer
Dim A1 As Integer
A1 = 2 '上标位置
For Each C1 In Selection
C1.Activate
B1 = Len(ActiveCell)
C1.Characters(Start:=B1 - A1, Length:=1).Font.Superscript = Not C1.Characters(Start:=B1 - A1, Length:=1).Font.Superscript
Next
End Sub

Sub 取消上下标()
Selection.Font.Superscript = False
End Sub

Sub 下标()
Dim C1 As Range
Dim B1 As Integer
Dim A1 As Integer
A1 = 2 '下标位置
For Each C1 In Selection
C1.Activate
B1 = Len(ActiveCell)
C1.Characters(Start:=B1 - A1, Length:=1).Font.Subscript = Not C1.Characters(Start:=B1 - A1, Length:=1).Font.Subscript
Next
End Sub

疯雪飘凌

哈哈,非常感谢,照如上方法可以了,'已经可以用了.谢谢.

xcajcj

欢迎大家加入QQ群3626255讨论。

huang961014

怎样取消这种设置呢？

lkn1117

好收下。

fieldy

我做了个菜单，只想在一个文件里使用，我应该怎么做？

zqhyj

现在算是第一次接触到宏了，真神奇。

rensd

不错不错，我正想要，我也做过一个，不过效果不行，谢谢先。

CADWCS

好，谢谢楼主，又学一招。