エクセルのマクロで簡単な変換をしたい

質問

初めて質問させて頂きます。
変なところがあったらすみません。

エクセルを使って変換をしたいのですが思うようにいきません。
私が考えているのは、(A6→B6)

　 A　　　　　　　B　　------
1 私　　　　　　　I　　　　対
2 は　　　　　　am　　　 応
3 男　　　　　　boy　　　表
4 。　　　　　　　.　　　------
5
6私は男。　　Iamboy. 変換する文章

と、いう風にエクセルの一部に対応表を作っておいて、
文章を打ち込んでボタンを押したら対応表にある語句に変換というものなのですが、

1文章中に複数の変換対象（私、は、男、。、の４つ）がある場合、どのような関数を用いたらできるのかわかりません。
replace関数を使ってみましたが、できませんでした。

分かりにくい説明かもしれませんが、このような変換をする方法が分かる方がいらっしゃいましたら、回答をお願いします。

回答No.1

keithin · ベストアンサー

説明を単純化しすぎていて実際に役に立てるシロモノにご自分で仕立てられるのか若干疑問ですが，とりあえずご質問で挙げられた状況に即して回答します。

A1:A4に日本語
B1:B4に対応する英単語
A6に目的の日本語文章。

sub macro1()
　dim h as range
　dim s as string
　s = range("A6")

　for each h in range("A1:A4")
　　s = application.substitute(s, h, " " & h.offset(0, 1))
　next
　range("B6") = application.trim(s)
end sub

お礼

下手な説明で理解していただき、ありがとうございます。
これを参考にしてやってみたら上手くいきました。

次からはもっとちゃんとした質問ができるよう心がけます。
回答ありがとうございました。