ExcelVBA(マクロ)で文字の長さ、バイト数を求める方法/Len、LenB関数の使い方

ワークシート関数同様、VBAで文字数を求める場合もLen関数を用います。

Len関数の使い方

文字数を求める
Len(文字列)

これの文字数を求めてみます。

Lenの引数に文字列のあるA1セルを指定し、これをメッセージボックスで表示します。

結果、このようになります。

ちょっと応用として、繰り返し処理をしてみます。
Dim、OptionExplicitについてはこちら、

繰り返し構文のFor Nextについてはこちらで解説しています。

Len関数は数値を返すので、変数に格納する場合はInteger、Longなどの数値型の変数で指定します。
最近の高性能なパソコンでは指定しない（as以降を書かない）でもあまり問題ないんですが、一応そのほうが処理が軽くなりますし、書いたほうが可読性という意味ではわかりやすいです。

というわけで、一行目から百行目まで、A1セルの文字数を数えてA2セルに表示するプログラムです。
Cellsは行,列でセル番号を指定する命令です。コードは下記となります。

' vba
Dim 文字数 As Integer
Dim i As Integer
For i = 1 To 100
文字数 = Len(Cells(i, 1))
Cells(i, 2).Value = 文字数
Next

実行結果はこのようになります。Ａ列に文字がない場合は数字を表示したくない場合は、Ａ列に文字があるかどうかをIf文で判別するなどすることで対応できます。

文字列のバイト数を求める
LenB(文字列)

さきほどのコードのLenをLenBに変更してみます。
LenB関数では文字数の代わりに、文字列のバイト数を求めることができます。ざっくり半角で1バイト、大文字で2バイトです。

その場合、実行結果はこうなります。