詳しい人求む！

エクセルの置き換えについて

解決済

質問者：finaltida108070809
質問日時：2017/02/20 10:39
回答数：3件

A列のセルに
<HTML>
<img src="http://www.atuoiuoa.co.jp">
</html>
と５０００行にわたって入っているとします。
B列のセルに
http://www.act.azyscholl.co.jp
とはいっており、これも５０００行にわたって記載されているとします。
しかし、こちらの５０００行は、act.以降が同じ文字列でなく違う文字列がランダムに記載がされているとします。

そして、B1にhttp://www.act.azyscholl.co.jpの記載の文字列をA1の<img src="">の””の中に挿入し
A2も同様に""の中に、B2の違う文字列、例えば、http://www.act.alternative.co.jp
を挿入します。
この一連の作業を関数などを使用して一度に行いたいのですが、
良い方法があれば教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： TH69
回答日時：2017/02/22 08:45

当該シートのA列2行目から最終行までの「

http://www.atuoiuoa.co.jp」を、当該行のB列の文字列に置き換えます。

Sub test()

Dim a, b, c, i As Long
a = Cells(Rows.Count, "A").End(xlUp).Row
b = "http://www.atuoiuoa.co.jp"
For i = 2 To a
c = Cells(i, "B").Value
Cells(i, "A").Value = Replace(Cells(i, "A").Value, b, c)
Next i

End Sub

- 0
- 件

通報する

この回答へのお礼

ありがとうございました。役に立ちました。

通報する

お礼日時：2017/02/24 11:39

No.2

回答者： yuji3690
回答日時：2017/02/20 16:44

http://www.excel.studio-kazu.jp/func/char.html
CHARの参考まで。

- 0
- 件

通報する

この回答へのお礼

ありがとうございました。役に立ちました。

通報する

お礼日時：2017/02/24 11:39

No.1

回答者： yuji3690
回答日時：2017/02/20 11:36

URLの部分を直接入力するのではなく、B列のセルを参照させれば良いのでは？

A列のセル=前半の文字&B列のセル&後半の文字
です。文字の部分は""で区切ってください。
1つのセルに改行も含んでいると言う意味であれば、
改行前の文字&CHAR(10)&改行後の文字
とすれば改行を入れられます。
同様に"という記号を入れたければ、
"より前の文字&CHAR(34)&"より後の文字
とすれば"を入れられます。
<HTML>
<img src="http://www.atuoiuoa.co.jp">
</html>
の例であれば、
A1="<HTML>"&CHAR(10)&"<img src="&CHAR(34)&B1&CHAR(34)&">"&CHAR(10)&"</html>"
といった感じです。