|
下記の実行でエラーが起こります。
単純なミスかもしれないと思い、色々試してみたのですが動かず、
混乱してきてしまったので、ご教示いただけますでしょうか。
[やりたいこと]
セル内の行数を別セルに記載したい。
変数でループさせている中での処理の一部です。
あるリストから、順にフォーマットに必要項目の転記や計算などをしていて、
転記した文字列があるセルの改行数+1で行数を取得。
例
A列、変数で取得した行(hensu1)にリストから転記
B列の同じ行に上記セルの行数(改行数+1)を関数で取得
dim gyo as string
dim hensu1 as long
hensu1=range(a1).row
gyo = “=len(A” & hensu1 & “)-len(substitute(A” & hensu1 & “),char(10),””””))+1”
Range(“B” & hensu1 & “”).Formula=gyo
最後のところでエラーになります。
gyoを確認すると、入れたい数式はgyoに格納できているように思います。
とっても長い構文の中の一部で分かりにくい点あるかもしれません。
途中、大文字で書いている部分が小文字になってしまっているところがありますがご了承ください。
よろしくお願いいたします。
|
|