<p>Function dx(s)<br/>dx = VBA.StrReverse(s)<br/>End Function</p><p>Function daoxu(dx)<br/> a = Len(dx)<br/> For i = a To 1 Step -1<br/> b = Mid(dx, i, 1)<br/> daoxu = daoxu & b<br/> Next i<br/>End Function</p><p>以上2个代码都可以。</p>