自分のPC環境ではLENBが機能しない。
Excel環境(言語)設定が要因だと思うが、この為だけに変更したくない。
毎回プログラムを作るのも面倒。そこで1行だけのマクロを準備。
VBA(ALT+F11)起動後、イミディエイト画面(CTRL+G)を開いて下記をコピペ。
縦の開始、終了行をセット、結果をセットする列番号、対象の列の列名をセットして実行。

マクロなので取消が出来ないため、必ずファイル保存をしてから実行すること。
※何度か苦い思い出があるため、ここ重要!!

for i=2 to 10:cells(i,Range(“b1”).Column)=LenB(StrConv(cells(i,Range(“a1”).Column), vbFromUnicode)):next