// ByteCount 2007.10.10 by あすかぜ // 選択範囲内のセルの文字数をカウントします。 // // 文字数をカウントしたい範囲を選んで、このマクロを実行してください。 // 選択範囲の2列目・4列目・6列目・・・に左側のセルの文字数が入ります。 // もともと入力されていた内容は上書きされますので注意してください。 // 文字数は半角が1文字、全角が2文字として数えます。 // ここから先は内容を理解した上で変更してください。 // ループの範囲をあらかじめ取得 L = SelLeft; T = SelTop; R = min(SelRight,Right); B = min(SelBottom,Bottom); // xは2つずつ進める for(x=L; x<=R; x=x+2){ for(y=T; y<=B; y++){ [x+1,y] = len([x,y]); } }