文字列の内容　Right関数

Right関数は文字列を末尾から指定した文字数分だけ取得する関数です。

簡単に言うと文字の抜き取りです。

Right関数の構文

Right( String , Length )

Right( 文字列 , 抜き出したい文字数 )

Right関数の使用例

・Right関数内に文字列を直接設定

・Right関数内に文字列がないの場合

・文字列を変数に設定

・Right関数内で文字列の結合

・セルから文字列を取得して隣のセルに設定

・繰り返し処理(for文)

・繰り返し処理(Do While文)

の内容で説明していきます。

Right関数内に文字列を直接設定

Sub Right0()
    
    MsgBox Right("abcde", 3)

End Sub

末尾から3文字目まで表示されます。

Right関数内に文字列がないの場合

Sub Right1()
    
    MsgBox Right("", 3)

End Sub

文字列がないためメッセージボックス内には何も表示されません。

文字列を変数に設定

Sub Right2()
    Dim str As String
    str = "abcde"
    
    MsgBox Right(str, 3)

End Sub

str = abcdeなので末尾から3文字までのcdeが表示されます。

Right関数内で文字列の結合

Sub Right3()
    Dim str As String
    str = "abcde"
    
    MsgBox Right(str + "fgh", 7)

End Sub

Right関数の文字列は”abcde”+”fgh”=”abcdefgh”になります。

そこから末尾から7文字なのでbcdefghで表示されます。

問題１

以下の内容を実行したときにメッセージボックスに表示される内容はどの様になりますか。

Sub Right4()
    Dim str As String
    str = "あいうえお"
    
    MsgBox Right(str, 2)

End Sub

問題２

以下の内容を実行したときにメッセージボックスに表示される内容はどの様になりますか。

Sub Right5()
    Dim str1, str2 As String
    str1 = "あいうえお"
    str2 = "かきくけこ"
    
    MsgBox Right(str1 + str2, 2 + 5)

End Sub

問題１の答え

str = “あいうえお”でしたので末尾からの2文字ですので”えお”が表示されます。

問題２の答え

Right(“あいうえお” + “かきくけこ”, 2 + 5)

Right(“あいうえおかきくけこ”, 7)になるため”えおかきくけこ”が表示されます。

セルから文字列を取得して隣のセルに設定

B2から文字列を取得してC2に設定します。

Sub Right6()
    Dim str As String
    str = Range("B2").Value
    
    Range("C2").Value = Right(str, 3)

End Sub

処理の実行

cdeの値がC2のセルに設定されました。

同様の処理内容

Right関数内にRange(“B2”)を設定する。

Sub Right7()
    
    Range("C2").Value = Right(Range("B2").Value, 3)

End Sub

Rangeではなく、Cellsで設定する。

Sub Right8()
    Dim str As String
    str = Cells(2, 2)
    
    Cells(2, 3) = Right(str, 3)

End Sub

上記、2つの処理でもcdeの値がC2のセルに設定されます。

Cellsのイメージ

繰り返し処理(for文)

B列に取得したい文字列が8行入力されています。

これを繰り返し処理でC列に末尾から3文字取得して表示させます。

処理内容

Sub Right9()
    Dim str As String
    Dim i As Integer
    
    For i = 1 To 8
        str = Cells(i + 1, 2)
    
        Cells(i + 1, 3) = Right(str, 3)
    Next

End Sub

処理の結果

８行分末尾から3文字まで取得できました。

繰り返し処理(Do While文)

for文ではFor i = 1 To 8と記載して8回処理をしたら終了する設定にしました。

Do While文では終了条件で繰り返し処理を終了させます。

終了条件はB列が空白になるまで繰り返し処理を行います。

つまりB10まで繰り返し処理を行います。

処理内容

Sub Right10()
    Dim str As String
    Dim i As Integer
    
    i = 1
    
    Do While Cells(i + 1, 2) <> ""
        str = Cells(i + 1, 2)
    
        Cells(i + 1, 3) = Right(str, 3)
        i = i + 1  'この処理が抜けると無限ループになります。

    Loop

End Sub

Do While Cells(i + 1, 2) <> “”で空白でない限り処理を繰り返します。

処理の結果

for文と結果は変わりませんがB列が空白でない限り処理が実行されます。

今回はRight関数を使用した使用例を複数記載致しました。

皆様の参考になれば幸いです。

次回はMid関数の使用例を投稿致します。