我們可以不要懂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

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部