vba公式大全及用法（VBA小程序3秒完成单位上标）

我们可以不要懂VBA，但要会懂得用VBA！每个人都可以创建一个属于自己的【E帮办公】。

---

情景

单位上标是日常办公常遇到的问题，还时不时很贴心地漏标几个，好让领导（专家）有问题可提^_^。

PS：个人也很是喜欢这个功能，省了不少事！

方案

日常需要上标的单位主要是m2和m3（如有其他需上标的单位，评价区见）。轻轻松松一键，完成工作表所有单位上标。下篇上线WORD文档的【单位上标】小程序。

如果你觉得有用，还希望给个【关注】给个【赞】！如果你想要自己的小功能，点击【关注】，在评价区留下小功能的要求！有需要，可【关注】后【私信】“Excel单位上标”获取模块，也可自行将文末的代码粘贴进【E帮办公】的模块中。创建自己的选项卡及将程序添加到选项卡中，参照文章【VBA小程序的添加——创建自己的选项卡】

---

代码：

Sub 单位上标() Application.DisplayAlerts = False '//关闭系统提示 Application.EnableEvents = False '//禁止触发其他事件 Dim rng As Range, i%, str As String For Each rng In ActiveSheet.UsedRange For i = 1 To Len(rng) str = Mid(rng, i, 2) If str Like "*m3*" Or str Like "*m2*" Or str Like "*M3*" Or str Like "*M2*" Then str1 = Mid(rng, i, 1) rng.Characters(i 1, 1).Font.Superscript = True If Asc(str1) >= 65 And Asc(str1) <= 90 Then rng.Characters(i, 1).Text = LCase(str1) End If End If Next i Next Application.EnableEvents = True '// '//恢复触发其他事件 Application.DisplayAlerts = True '//恢复系统提示 End Sub

,