セルに含まれている内容を逆にしたいと思ったことはありませんか？リバースマクロを使用すると、「マイテキスト」を「txetyM」に簡単に変更できます。このマクロは、セルの内容にアクセスして変更するためのテクニックを教えてくれます。

Sub Reverse()

If Not ActiveCell.HasFormula Then         sRaw = ActiveCell.Text         sNew = ""

For J = 1 To Len(sRaw)

sNew = Mid(sRaw, J, 1) + sNew         Next J         ActiveCell.Value = sNew     End If End Sub

このマクロは、選択した1つのセルにのみ影響し、既に数式が含まれているセルには変更を加えません。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2322）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

link：/ excelribbon-Reversing_Cell_Contents [Reversing CellContents]。