エクセルマクロ/特定文字列をリストに従い置き換える

質問

エクセル2010で「シート1に内容をペーストしてボタンを押すと、
別シート2のA列に記載してある文字列の中から一致するものを検索し、
一致した場合、その文字列の隣（B列）に記載してある内容に書き換える」というものを
作成しています。
上記動作については下記URLのサイトのマクロで作成することが出来ました。

参考URL：http://stabucky.com/wp/archives/3259

ここまでで、例えばシート1にペーストした内容の中にappleという文字列があった場合、
シート2のA列にapple、B列にりんごと記載しておくことで、appleの文字列がすべてりんごに
置き換わるのですが、あらかじめ登録する事が出来ない変動する値の前後の文字列だけを
変換させたいと考えています。

例：{[get="apple",past="1",now="2"]} →りんご入手（所持数：0001→0002）

上記例の場合、「apple」は別の文字列（英数字）、「1」「2」が他の異なる数字の場合であっても、
元の値は残したまま、***入手（所持数：****→****）という具合に置き換えさせたいのです。
{[get="***",past="*",now="*"]}という外枠は変動しないのですが、
この場合参考URLのマクロを元に作成したシート2のA列とB列にはどのような記載を行えば
理想通りに置き換わるでしょうか。
ワイルドカードというものを利用すればいいのかと思ったのですが、
ワイルドカードのつもりで記載した*の記号ごと元の値が置き換えられてしまいました。

ぜひ力を貸してください。よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

""でくくられた，apple，１，２を抜き出して，所定の文言に嵌め込んで出力したいということでしょうか。

作成例：Ａ１セルをＢ１セルに出力するサンプル
sub macro1()
　dim a
　dim s1, s2, s3

　a = split(range("A1"), """")

　on error resume next
　s1 = a(1)
　s1 = application.worksheetfunction.vlookup(s1, worksheets("Sheet2").range("A:B"), 2, false)
　on error goto 0

　s2 = format(a(3), "0000")
　s3 = format(a(5), "0000")

　range("B1") = s1 & "入手（所持数：" & s2 & "→" & s3 & "）"
end sub

お礼

わざわざありがとうございます！
いただいた内容はあんまり理解できていないのですが、こちらを元にいじってみたいと思います！