excel VBAで、置換した結果を別のセルに出力

質問

excel初心者です。
文字列を置き換え、オリジナルの隣のセルに表示させる方法を教えてください。

扱っている商品名のいくつかが変更になったので、過去に入力済みのデータを一括変換したいのですが、旧商品名も残しておきたいと思っています。

たとえば、

日付 商品名 数量 価格
9/6 オレンジジュース 1 550
9/6 バナナミルク 1 500
9/6 カフェラテ 1 600

を

日付 新商品名 旧商品名 数量 価格
9/6 フレッシュオレンジ オレンジジュース 1 550
9/6 バナナオレ バナナミルク 1 500
9/6 カフェオレ カフェラテ 1 600

という感じです。

商品名が多く40以上あるため、SUBSTITUTEだと無理があり、VBAでの方法を調べ始めたものの、replaceでは上書きしかできない（？）ようで、いまいちよくわかりません。

どなたかご教授いただけないでしょうか。

また、VBAについて初心者向けにわかりやすく解説しているサイトや本がありましたら、あわせて教えていただけたら幸いです。

よろしくお願いいたします。

回答No.2

kkkkkm · ベストアンサー

もともとB列に旧商品名があってそれをC列に代入してB列の旧商品を新商品に変換するという動作でしたら

たとえば

Range("C" & i).Value=Range("B" & i).Value

と必要な分だけループか検索かで代入しておいて

あとは

B列の商品名をreplaceで書き換えたらいかがでしょう。

> また、VBAについて初心者向けにわかりやすく解説しているサイト

エクセル vbaで検索したら色々出てきますのでご自身にあったページを参考にしてみてください。

たとえば
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/
とか
http://officetanaka.net/
とか
http://www.happy2-island.com/excelsmile/

などいかがでしょう。

基本的に「エクセル vba やりたいこと(たとえばファイルを開くとか)」で検索すると解説しているページが結果として出てきますので、その中で分かりやすいページを見つけるのもいいかと思います。

お礼

ありがとうございます！代入してから置き換える、目から鱗でした！お陰様で解決しました。

回答No.1

mt2008

VBAが万能なわけではありません。
今回のケースは関数で十分だと思います。

添付の図を見て下さい。
置換したい旧商品名、新商品名のリストをG2:H5に作りました。
セルB2の新商品名のセルに入れた演算式は↓です。
=IFERROR(VLOOKUP(C2,$G$2:$H$5,2,FALSE),"")

お礼

ありがとうございます！今回はvbaで解決しましたが、関数でもできるということ、とても参考になりました！