特定のセルを参照し、その一部分だけ残すマクロ

質問

鉄骨関係です。

同行のセルを参照し
H形鋼、L形鋼、C形鋼が入力してある文字の一部分だけ
残すＶＢＡを教えてください。（Excel2007を使用）

例えばE列がW（web）の時、同じ行の赤色部の部材はWeb厚の数字だけ残す。
F(Flange)の時は、鉄骨のFlange厚の数字だけ残す。

またPLも画像の様に、後の数字だけ残すようにしたいのですが
いい方法があれば御教示下さい。

回答No.1

keithin

＞ＶＢＡを教えてください

ご相談を見てる人は、ＷＥＢやＦｌａｎｇｅの厚みとか言われてもどの数字が欲しいのか知りませんよ。

どういう部材を使ってて、結果してどういうパターンの文字列が入る「可能性がある」のかあなたの責任で全部羅列して、更にＷやＦなど何を指定するつもりなのか、その結果としてどの数字を最後に残したいのか etc,etc.
全体をキチンと体系立てて、整理してからご相談を投稿し直してみて下さい。

＃参考
基本パターン：ＰＬを拾う

sub macro1()
　dim Target as range
　dim h as range
　dim a as variant
　dim pos as long
　set target = range("L6:P10")　’データ範囲をてきとーに指定
　target.numberformatlocal = "0.0"
　on error resume next

　for each h in target.specialcells(xlcelltypeconstants, xltextvalues)　
　　a = split(h.value, "*")
　　pos = 0
　　pos = application.match("PL*", a, 0)
　　if pos > 0 then
　　　h = replace(a(pos - 1), "PL", "")
　　end if
　next
end sub