シート内の文字数をカウントする - Excel2013

Excel2013のシート内の文字数をカウントする方法です。　セル内の文字数をカウントするにはLEN関数を使います。LEN関数を使い指定セルを総当りで調べます。

リボンの［開発］－コントロールグループの［コードの表示］をクリックします。

VBE画面が開くので下のコードをコピーしペーストします。　調べる最大行数・列数には調べる範囲がこれを超える場合は変更してください。行数・列数を仕様のMAXすればいいのですが、大変時間が掛かります。

Sub MyMojiCount()
n = 0
For i = 1 To 1000   '調べる最大行数
    For j = 1 To 500   '調べる最大列数
        n = n + Len(Cells(i, j))
    Next
Next
MsgBox "文字数 ： " & n
End Sub


次にカーソルをペーストしたコード内に移動し、上の［Sub/ユーザーフォームの実行（F5）」をクリックします。

文字数ダイアログボックスが表示されます。