打开VBA，新建一模块，并输入如下代码：

Sub ABc()
    Dim stra
    stra = "adfasDFeFgH"
    Range("A1") = Format(stra, ">@")
    Range("A2") = UCase$(stra)
    Range("A3") = Format(stra, ">")
End Sub

打开EXCEL文档，运行宏代码ABc，可看到效果