Vba で文字列を反転する方法 (例あり)

VBA でStrReverse関数を使用すると、テキスト文字列を反転できます。

この関数を実際に使用する一般的な方法は次のとおりです。

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

この特定の例では、 A2:A11の範囲内の各文字列を反転し、 B2:B11の範囲内の結果を表示します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA を使用して文字列を反転する方法

Excel にバスケットボール チーム名の次の列があるとします。

各チームの名前を逆にして、列 B の対応するセルに結果を表示するとします。

これを行うには、次のマクロを作成できます。

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

このマクロを実行すると、次の出力が表示されます。

B列はA列の各チーム名を逆順に表示します。

例えば：

• マブスがsvaMになる
• スパーズがSrupSになる
• ロケッツがstekcoRになる
• キングスがsgniKになる

等々。

StrReverse関数は数値でも機能することに注意してください。

たとえば、 StrReverse関数を数値1234に適用すると、 4321が返されます。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 文字列に別の文字列が含まれているかどうかを確認する方法
VBA: 範囲内の行数をカウントする方法
VBA: COUNTIF 関数と COUNTIFS 関数の書き方