1.新建空白sheet2.alt+f11调出VB3.插入-模块-填入自定义函数Function REVERSE(Str As String)REVERSE = StrReverse(Str)End Function