如图，<em>EXCEL</em>中如何批量设置<em>上标</em>？

'选定要zhidao做下标的区域
'运行下面的宏
Sub x()
n = 2 '单元版格中下标的位置权
For Each a In Selection
a.Characters(Start:=n, Length:=1).Font _
.Subscript = True
Next
End Sub

用VBA即可，很实用copy，刚学知来的分享一道下。
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 "[a-z]" Then
rG.Characters(i, 1).Font.Superscript = True
End If
Next i
Next
End Sub

需要百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

步骤：

1. 输入公式：="<table><td>"&SUBSTITUTE(A1,"s","^s")，然后下拉填充

2. 清空剪贴板：

3. 复制数据：

4. 单元要粘贴的数据：

5. 选择性粘贴数据：文本格式进行粘贴

6. 最终结果：

本文标签：excel怎么用上标(4)excel 替换 上标(1)