本人不太喜欢EXCEL,但因工作需要不得不学。
资料中有好多单位输入起来很烦,所以在网上发了一篇求助贴
得到excelhome论坛中mrjjq的帮助,在此再次感谢~
把一张表中的所有“g/cm3”后面的3变为上标形式。
(不能为边输入边自动更正,那样有点耗资源)
For Each rg In Sheets("sheet1").UsedRange
    If InStr(rg, "g/cm3") > 0 Then
        rg.Characters(Start:=InStr(rg, "g/cm3") + 4, Length:=1).Font.Superscript = True
    End If
    Next