【ExcelVBA】文字列操作で業務を快適に①【Left関数Right関数Mid関数】

2019年6月6日
2019年9月2日
VBAテクニック編
Excel, VBA, 文字列

VBAテクニック編

みなさん、こんにちはケンケンです。

今回は、VBAで文字列を操作してみよう、という趣旨になります。

文字列操作ができると業務の幅が広がります。

例えば、住所・名前・日付などから特定の部分だけ抜き出して集計したい、とか

文字列から検索したい文字をピンポイントでヒットさせてフィルターを掛けたい、

そしてそれを自動化したいと思ったことはないでしょうか。

文字列操作は関数でも出来ますが、やはりファイルが重くなる傾向があるので、VBAでスッキリさせてしまいましょう。

今回は、文字列操作の基本をご紹介します。

基本とはいえ、文字列操作用の関数を組み合わせてループさせる仕組みを作って行くので実務でも充分役に立つはずです。

1 文字列とは
2 Left関数とRight関数
3 Mid関数
4 ForNextでループさせよう
5 まとめ

文字列とは

文字列とは何でしょうか。

文字の集まりのことです。

当たり前でしょ？と思うかもしれませんが、一応プログラミングの世界では、文字が集まったものを文字列として定義しています。

つまり、「あ」は文字であって文字列ではありません。「あり」は文字列です。

文字列を操作するということは、文字が２つ以上集まったものを分解したり、必要な部分だけを取り出したりする処理のことだと理解してください。

Left関数とRight関数

それでは、実際に文字列を操作してみましょう。

手始めにLeftとRightから練習してみましょう。

まず、手ごろな文字列を用意します。

新元号「令和」の元となった万葉集梅花の宴より抜粋しました。

この文字列を使っていろいろ試してみます。

それでは、Left関数から

構成はLeft(String,Length)です。

引数Stringには指定された文字列を指します。

その文字列の左端から引数Lengthに指定された文字数分だけ取り出します。

実際にコードを書いてみましょう。

標準モジュールに記述します。

Sub mojiretu_left()
    Range("B1").Value = Left(Range("A1").Value, 8)
    Range("B2").Value = Left(Range("A1").Value, 9)
    Range("B3").Value = Left(Range("A1").Value, 10)
    Range("B4").Value = Left(Range("A1").Value, 11)
End Sub

Sub mojiretu_left()

Range("B1").Value = Left(Range("A1").Value, 8)

Range("B2").Value = Left(Range("A1").Value, 9)

Range("B3").Value = Left(Range("A1").Value, 10)

Range("B4").Value = Left(Range("A1").Value, 11)

End Sub

これを実行すると

できましたか。

次は、Right関数(Right(String,Length))です。

RightはLeftの反対で右から指定された文字数分だけ抜き出します。

Sub mojiretu_right()
    Range("C1").Value = Right(Range("A1").Value, 8)
    Range("C2").Value = Right(Range("A1").Value, 9)
    Range("C3").Value = Right(Range("A1").Value, 10)
    Range("C4").Value = Right(Range("A1").Value, 11)
End Sub

Sub mojiretu_right()

Range("C1").Value = Right(Range("A1").Value, 8)

Range("C2").Value = Right(Range("A1").Value, 9)

Range("C3").Value = Right(Range("A1").Value, 10)

Range("C4").Value = Right(Range("A1").Value, 11)

End Sub

上記コードを書いて実行してみましょう。

今度は右から文字列を抜き出して転記することができました。

これが、Left関数とRight関数です。

Mid関数

さあ続きまして、Mid関数についてご紹介します。

まず構成です。

Mid(String,Start,Length)となっています。

少しややこしくなりましたが、難しくありません。

日本語に翻訳すると特定の文字列（String）の指定した文字位置（Start）から指定した文字数（Length）を抜き出します。

これでもまだややこしいですかね。

では、実際にアクションをコードを実行して確認しましょう。

Sub mid_rensyu()
    Range("D1").Value = mid(Range("A1").Value, 9, 6)
End Sub

Sub mid_rensyu()

Range("D1").Value = mid(Range("A1").Value, 9, 6)

End Sub

このコードを日本語に訳すとA1セルの文字列（String）を９文字目（Start）から６文字（Length)抜き出す。

ということです。

実行結果は以下になります。

ここまでは、個別に関数を紹介しましたが、当然これだけではつまらないですね。

ちょっと応用的なこともしてみましょう。

そこで、みなさんに問題です。出来るだけ自分で考えてみてください。

（問題）文字列を左から８文字で区切りE1に表示させ、９文字目以降は区切りたい文字数を選択できる仕組みを作ってE2からE5まで書き出しなさい。

（答え）

Sub mojiretu_rensyu()
    Dim mojiretu
    Dim mojikazu
    mojiretu = 8 '①
    mojikazu = Range("A3").Value '②
    
    Range("E1").Value = Left(Range("A1").Value, mojiretu) '③
    mojiretu = mojiretu + 1 '④
    Range("E2").Value = mid(Range("A1").Value, mojiretu, mojikazu) '⑤
    mojiretu = mojiretu + mojikazu '⑥
    Range("E3").Value = mid(Range("A1").Value, mojiretu, mojikazu)
    mojiretu = mojiretu + mojikazu
    Range("E4").Value = mid(Range("A1").Value, mojiretu, mojikazu)
    mojiretu = mojiretu + mojikazu
    Range("E5").Value = mid(Range("A1").Value, mojiretu, mojikazu)
End Sub

Sub mojiretu_rensyu()

Dim mojiretu

Dim mojikazu

mojiretu = 8 '①

mojikazu = Range("A3").Value '②

Range("E1").Value = Left(Range("A1").Value, mojiretu) '③

mojiretu = mojiretu + 1 '④

Range("E2").Value = mid(Range("A1").Value, mojiretu, mojikazu) '⑤

mojiretu = mojiretu + mojikazu '⑥

Range("E3").Value = mid(Range("A1").Value, mojiretu, mojikazu)

mojiretu = mojiretu + mojikazu

Range("E4").Value = mid(Range("A1").Value, mojiretu, mojikazu)

mojiretu = mojiretu + mojikazu

Range("E5").Value = mid(Range("A1").Value, mojiretu, mojikazu)

End Sub

僕は上記のようにしました。（コード中のコメントの数字と下記説明文の数字はリンクしています。）

変数mojiretuにまず８を代入しスタートさせます。①

そして、Mid関数を使って区切る文字数としてA3セルで指定した数値を変数mojikazuに代入させます。②

Left関数で８文字目まで抜き出すのは問題ないですね。③

Mid関数の引数に備えて変数mojiretuの値を９にしておきます。④

Mid関数で９文字目から変数mojikazu分抜き出します。⑤

変数mojiretuにmojikazu分加えることで次のMid関数の引数Startの数に置き換えます。⑥

以降E5まで続きます。

実行結果がこちらです。

上記では、５文字ずつの結果ですが、いろいろな数字で試してみてください。

ForNextでループさせよう

文字列の基礎を紹介してきましたので、ここからはプログラミングの醍醐味であるループをさせてみましょう。

使う資料はこちらです。

売掛金集計表の時に使った会社リストです。

この所在地の部分を都道府県とそれ以下に分けてループさせるコードを考えていきます。

それでは、いつものように最初の処理の手順を考えましょう。

まず、C2セル「香川県丸亀市福島町9-3-8」について考えます。

①「香川県」までをLeft関数を使って３文字目まで抜き出す。

②丸亀市以降はMid関数を使って書き出す。

この手順でコードを考えます。

Sub moji_kugiri()
    Range("D2").Value = Left(Range("C2").Value, 3)
    Range("E2").Value = mid(Range("C2").Value, 4) '①
End Sub

Sub moji_kugiri()

Range("D2").Value = Left(Range("C2").Value, 3)

Range("E2").Value = mid(Range("C2").Value, 4) '①

End Sub

Mid関数の第３引数Lengthが省略されていますが、省略した時は、開始位置から文字列の最後まで表示されます。①

これで、最初の処理ができたので、次はループさせます。

Sub moji_kugiri()
    Dim LRow
    LRow = Range("A" & Rows.Count).End(xlUp).Row
    
    Dim addressCnt
    For addressCnt = 2 To LRow
        Range("D" & addressCnt).Value = Left(Range("C" & addressCnt).Value, 3)
        Range("E" & addressCnt).Value = mid(Range("C" & addressCnt).Value, 4) '①
    Next
End Sub