[VBA] Len関数で文字数をカウント
Len関数 の引数に文字列を渡すと 文字数をカウント して Long 型で返します。
空白文字も１文字として処理されます。
たとえば
と記述すると全文字数「12」が返されます。
ユーザーさんが InputBox に入力した文章の文字を数えるマクロです。
Sub CountLetter()
Dim moji As String
moji = InputBox("文章を入力してください")
x = Len(moji)
MsgBox x
End Sub
マクロを実行すると「文章を入力してください」というダイアログボックスが現れるので、好きな文章（日本語でもアルファベットでもかまいません）を入力すると、文字数がカウントされてメッセージボックスに表示されます。たとえば「こばとちゃんは美人だな」と入力すると「 11 」が返ります。
「こばとちゃんは美人だな」をカウントすると 11 文字です。
え？ しつこく同じことを言うなって？ こばとの勝手でしょ。
現在開いているシート（アクティブシート）の A 列のセルに入力されている文字を全てカウントするマクロを載せておきます。
Sub CountCellLetter()
Dim r1 As Long, r2 As Long
Dim x As Long, ct As Long
Dim moji As String
r1 = ActiveSheet.Rows.Count
r2 = Cells(r1, 1).End(xlUp).Row
ct = 0
For i = 1 To r2
moji = Cells(i, 1)
x = Len(moji)
ct = ct + x
Next i
MsgBox ct
End Sub
アクティブシートの全行数を r1 に格納して、その数をもとに「 A 列 r1 行」から「.End(xlUp).Row」によってデータの入力されている末尾のセルの行数を参照して r2 に入れます。そして先頭からデータの入った末尾のセルまでループさせて文字数を拾い続けるという仕組みになっています。
Len関数で変数のバイト数をカウント
Len関数 の引数に変数を指定すると、その変数に必要なバイト数を Long 型で返します。
Integer 型と Long 型に必要なバイト数をカウントするマクロです。
Sub CountByte()
Dim x As Integer, y As Long
bytex = Len(x)
bytey = Len(y)
MsgBox (bytex)
MsgBox (bytey)
End Sub
上のマクロを実行するとメッセージボックスに「 2 」、「 4 」というバイト数が表示されます。
