VBAで単位文字を省き数字だけ取る方法

質問

Excelブック内に200枚くらいあるシート上の各"G8"セルの数値を集計用シートに並べていくマクロです。
これは繰り返し構文で問題ないんですが、セルの数字には「本」の単位が付いています。
381本、1305本、0本などです。
この本を抜かし数字だけを集計用シートのセルに入れたいです。

桁数がまちまちなので一度Len関数でG8セル内の文字数をかぞえ、その数から１（本のぶん）を引いた文字数をLeft関数で取る　という方法しか考え付きません。

単位の字を省くだけにしては複雑すぎる気がするんですが、本来はどの様な方法をとるのでしょうか。

回答No.1

noname#140971 · ベストアンサー

[イミディエイト]
? Replace("381本、1305本、0本", "本", "")
381、1305、0

が、一番簡単だと思います。

お礼

Replaceは0長の文字列に置き換えるって事ですね。
VALだと後の文字が簡単に省けるんですね。
有り難うございます。

回答No.2

noname#140971

[イミディエイト]
? VAL("381本")
381

でも構いません。