各位老师帮忙看看怎么用ＶＢＡ批量设置上下标

uxt

有一组数字，格式是“????±????±????”,问号表示的数字，不限个数。要把第一个“±????”设为上标，第二个“±????”设为下标，要怎么编ＶＢＡ？请教各位老师，最好附解释，我是刚接触ＶＢＡ，谢谢！！

liulang0808

Sub 宏1()
    Application.ScreenUpdating = False
    For j = 1 To Cells(Rows.Count, 1).End(3).Row
        arr = Split(Cells(j, 1), "±")
        
        Cells(j, 1).Characters(Start:=Len(arr(0)) + 1, Length:=Len(arr(1)) + 1).Font.Superscript = True
        Cells(j, 1).Characters(Start:=Len(arr(0)) + Len(arr(1)) + 1, Length:=Len(arr(2)) + 1).Font.Subscript = True
    Next
    Application.ScreenUpdating = True
End Sub

liulang0808

供参考。。。。。

uxt

liulang0808 发表于 2023-2-11 20:14
供参考。。。。。

谢谢版主！！我研究研究，刚开始学

taller

楼主这两个帖子都是同一个问题

https://club.excelhome.net/forum ... amp;_dsign=0ca8f522

uxt

liulang0808 发表于 2023-2-11 20:14
Sub 宏1()
    Application.ScreenUpdating = False
    For j = 1 To Cells(Rows.Count, 1).End(3).Row
...

我需要把第一个“+？”上标，第二个“+？”下标，您写的宏运行后，有部分数字没有跟随+一起上标或下标。

liulang0808

.。。。。。。。。。。

uxt

liulang0808 发表于 2023-2-13 18:47
.。。。。。。。。。。

大哥，我加了一行，然后它提示下标越界，我不知道怎么修改了。

uxt

liulang0808 发表于 2023-2-13 18:47
.。。。。。。。。。。

大哥，我加了一行，然后它提示下标越界，我不知道怎么修改了。