自定义函数（注意，在插入模块中粘贴以下语句）：

Function Reverse(Str As String)
  Reverse = StrReverse(Str)
End Function

然后在工作表中输入=Reverse()函数，并选择要反转的字符串所在的单元格，回车后即可看到反转后的字符串。