Excelで文字列リストを用いた一括置換方法

質問

エクセルについて質問させてください。説明が難しいのですが、A列、Ｂ列、Ｃ列にそれぞれ以下の
ように記入してあったとします。

.....Ａ列.........................B列.................................................C列
....──────────────────────────────
１│ a │ http://○○.co.jp/img_1.jpg │ http://○○.co.jp/img_2.jpg
２│ b │ http://○○.co.jp/img_1.jpg │ http://○○.co.jp/img_2.jpg
３│ c │ http://○○.co.jp/img_1.jpg │ http://○○.co.jp/img_2.jpg

このリストの「img」と記載してある部分をA列に記入してある文字列に一括で置き換えた
いのですが、そのような事は可能でしょうか？

▼ このように置き換えしたいです ▼

.....Ａ列.........................B列.................................................C列
....──────────────────────────────
１│ a │ http://○○.co.jp/a_1.jpg │ http://○○.co.jp/a_2.jpg
２│ b │ http://○○.co.jp/b_1.jpg │ http://○○.co.jp/b_2.jpg
３│ c │ http://○○.co.jp/c_1.jpg │ http://○○.co.jp/c_2.jpg

最初は１行ずつ地道に置き換え作業を行っていたのですが、こういったリストが数千行にも及び
流石にそれでは効率が悪すぎると思い至りました。マクロ等で可能かどうか調べてみたんですが
エクセル初心者級の私には難し過ぎて理解できません・・

ちなみに画像のＵＲＬが記載してある列はＣ列以降も続いています

よろしければお知恵を拝借したいです。よろしくお願いします

回答No.2

keithin · ベストアンサー

準備：
空のブックを用意する
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim h as range
　for each h in range("A1:A" & range("A65536").end(xlup).row)
　if h <> "" then h.entirerow.replace what:="img", replacement:=h.value, lookat:=xlpart
　next
end sub

ファイルメニューから終了してエクセルに戻る
ブックを「マクロのブック」とかなんとかの名前で保存する

手順：
マクロのブックを開く
目的のファイルを開く
ＡＬＴ＋Ｆ８を押してマクロを実行する。

お礼

できました！！ありがとうございます！！

おかげで作業効率が大幅に上がりました(^_^)

心より恩に着ますm(_ _)m

回答No.1

Cupper-2

関数でもマクロでも可能ですよ。

ただ、例を見る限りなんかサイトが考慮していないアクセスをするために使われそうなので具体的な関数やマクロは示さないことにします。
（まあ何をやりたいのかは十分理解できます。リスト作っても使うのは一回限りですから、それ。）

　対象の文字列から検索する文字列の場所（先頭から何文字目か）を調べて
　そこまでの文字列を切り取り置き換えたい文字列と結合する。
　対象の文字列から置き換えたい文字列の場所（先頭から何番目か）を調べて
　置き換えたい文字列の右側の文字列を切り取り、前に結合した文字列と結合する。
・・・って手順になります。

頑張っていろいろな欲望を満たしてくださいｗ。

補足

すいません。きちんと目的を説明するべきでした(^_^;)
私、某ＥＣサイト運営の手伝いしてまして

このリストは商材と商材画像の紐付けに使用するCSVのものです（A列には商材IDが入ります）

商材IDで画像を保存した方が複数モールへの商品移行も楽に
行えるので・・決してやましい目的がある訳ではありませんのでご安心ください(笑)