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 関数の書き方