エクセルにて セルの文字列を逆向きにするには？

A１に「qwer」とある場合、B１には「rewq」と文字を逆にしたいのですが、エクセルの関数のみで可能でしょうか？
A1の文字列の長さは任意とします。

関数では困難な場合はマクロでも良いのですが、簡単に出来るようでしたらお教え下さい。

No.2 ベストアンサー 回答者： noname#22222 回答日時： 2006/09/06 17:09

=逆さ文字(a1)

Public Function 逆さ文字(ByVal Text) As String
　　Dim I　　　 As Integer
　　Dim L　　　 As Integer
　　Dim NewText As String
　　
　　L = Len(Text & "")
　　For I = 1 To L
　　　　NewText = NewText & Mid$(Text, L - I + 1, 1)
　　Next I
　　逆さ文字 = NewText
End Function

この回答へのお礼

回答ありがとうございます。
関数にしたほうが使い勝手がよさそうですね。

お礼日時：2006/09/06 17:53

No.4 回答者： taocat 回答日時： 2006/09/06 17:26

こんにちは。

ＶＢＡにはそのための関数が用意されています。

----------------------------------------------
Sub Test()

　Range("B2").Value = StrReverse(Range("A1").Value)

End Sub
----------------------------------------------

以上です。
　

この回答へのお礼

回答ありがとうございます。

お礼日時：2006/09/06 17:54

No.3 回答者： nicotinism 回答日時： 2006/09/06 17:10

こういうのを標準モジュールに作成して、一旦保存。

Function myRevStr(trgStr As String) As String
Dim i As Integer
　　For i = Len(trgStr) To 1 Step -1
　　　　myRevStr = myRevStr & Mid(trgStr, i, 1)
　　Next
End Function

ワークシート上では
セルに = myRevStr(A1)
とすれば、A1の文字が逆転します。

この回答へのお礼

回答ありがとうございます。

お礼日時：2006/09/06 17:53

No.1 回答者： softimage 回答日時： 2006/09/06 16:56

文字列逆転のマクロがありましたのでご紹介します。

参考URL：http://www.moug.net/tech/exvba/0140018.htm

この回答へのお礼

回答ありがとうございます。

お礼日時：2006/09/06 17:52