1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 在任意字符上方添加着重符() Dim r As Range, i%, First$, inputt inputt=InputBox("输入欲加着重符之字符", "定位", "#", 50, 50) Application.ScreenUpdating=False Set r=Selection.Find(inputt, lookat:=xlPart) If Not r Is Nothing Then First=r.Address Do For i=1 To Len(r) If Mid(r, i, 1)=inputt Then r.Phonetics.Visible=True r.Characters(Start:=i, Length:=1).PhoneticCharacters="·" r.Phonetics.Font.Size=r.Font.Size+2 r.Phonetics.Font.Name="黑体" Else r.Characters(Start:=i,Length:=1).PhoneticCharacters="" r.Phonetics.Alignment=xlPhoneticAlignCenter End If Next Set r=Selection.FindNext(r) Loop Until r.Address=First End If Application.ScreenUpdating=TrueEnd Sub
5、程序执行完毕后，指定的字符全部加上着重符
