内容は至極簡単で、マクロを初心者に教える教材としても良いのではないか。
A列（A1,A2,A3...）セルに、ひらがな/カタカナ/アルファベットで単語を入れてマクロを実行すると、B列に逆から読んだ文字列が表示されます。
----------
Sub Palindrome()
Dim uText As String
Dim pText As String
Dim uLen As Integer
Dim i As Integer
Range("A1").Select
Do Until ActiveCell.Value = ""
uText = ActiveCell.Value
uLen = Len(uText)
For i = uLen To 1 Step -1
pText = pText + Mid(uText, i, 1)
Next
ActiveCell.Offset(0, 1).Value = pText
pText = ""
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
End Sub
.gif)
