求助表格里数字批量上标设置

叮盯当

通过Excel的数据有很多数据为科学计数法形式，比如5×1012，但×10后面的12不是上标，有的单元格就一处，有的单元格有多处，怎样批量将这种×10后面的数字（一般最多就2个）改成上标呢？

ztsss161511

excel指数符号是“^”。这种问题建议用替换：×10  替换为  ×10^

limonet

代码审核中。

limonet

Sub limonet()
    Dim i%, M As Object
    With CreateObject("vbscript.regexp")
        .Pattern = "×10\d+"
        .Global = True
        For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
            For Each M In .Execute(Cells(i, "A"))
                Cells(i, "A").Characters(M.firstindex + 4, M.Length - 3).Font.Superscript = True
            Next M
        Next i
    End With
    Set M = Nothing
End Sub

cidanji

limonet 发表于 2023-7-5 10:38
代码审核中。

用正则准确率最高

limonet

cidanji 发表于 2023-7-5 11:21
用正则准确率最高

这个案例不复杂，准确率应该是100%

cidanji

limonet 发表于 2023-7-5 11:31
这个案例不复杂，准确率应该是100%

是的，这个案例准确率100%
VBA好像不支持反向预查，如果支持更是直接匹配×10后内容

limonet

是的，VBA不支持反向预查。

叮盯当

limonet 发表于 2023-7-5 10:38
代码审核中。

非常感谢，好好学习一下，先前用循环加find的方式只有一处的正常，多处的单元格就经常不灵光，总觉得缺点啥