怎样使用VBA在任意字符上方添加着重符？

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=True
End Sub

5、程序执行完毕后，指定的字符全部加上着重符