excelの文字列に違う文字列を挿入する

A列にhtmlの文字列が入っており、<img src="">というも文字列の中に
B列のランダムなURLを5000行一気に挿入したいと考えています。
他の列に記載したものをA列に、記載するわけでなく
A列に直接、連続的に一気に挿入したいのですが、アドバイスお願いいたします。
Charactersというコードでしょうか。

行動規範の内容に同意します

回答1件

ベストアンサー

こんな感じでしょうか。
かなり手抜きです。
src=""がセル内に複数あっても全ての箇所を置換します。

VBA
1Sub test()
2    Dim r As Range
3    For Each r In Range(Cells(1, 2), Cells(5000, 2))
4        Cells(r.Row, 1) = Replace(Cells(r.Row, 1), "src=""""", "src=""" & r.Value & """")
5    Next
6End Sub

投稿2017/02/20 05:52

ttyp03

総合スコア16998

tidavest

2017/02/20 07:03

"src=""""", "src=""" & r.Value & """") この部分がわかりません。 A１列に、src=""　という文字があります。 B1に http://www.excute.co.jp　と入っているとします。上記の場合、 Cells(r.Row, 1) = Replace(Cells(r.Row, 1), "src=""""", "src="http://www.excute.co.jp")でしょうか。 "がたくさん入っていて、いくつしにたらよいかわかりません。アドバイスお願いいたします。

ttyp03

2017/02/20 07:05

何かを修正する必要はありません。そのままコピペして実行してください。

ttyp03

2017/02/20 07:07

""について補足しておきます。 VBAでは文字列を"～"で表現しますが、"～"の中で"を出力したい場合は、""と書きます。つまり""という文字列を出力したい場合は、""""""となるわけです。わけわかりませんねｗ

tidavest

2017/02/20 07:31

i2の文字列の中の　""の中に、Z2の文字列全部入れたいです。その場合、 Sub test() Dim r As Range For Each r In Range(Cells(9, 2), Cells(5000, 2)) Cells(r.Row, 2) = Replace(Cells(r.Row, 2), "src=""""", "src=""http://www.excute.co.jp" & r.Value & """") Next End Sub でしょうか。

ttyp03

2017/02/20 07:38

I2もZ2も質問には登場していません。もう少し情報を整理していただけないでしょうか。最初の質問では、A列にHTML文字列、B列に挿入したいURLがある、とのことでした。つまり、 A1=<html><img src=""></html> A2=<html><img src=""></html> ～ B1=http://ランダムなURL B2=http://ランダムなURL ～実行後 A1=<html><img src="http://ランダムなURL"></html> A2=<html><img src="http://ランダムなURL"></html> ～こんな動作を想定していました。

tidavest

2017/02/20 07:53

はい。その通りです。 A1がI2,B1がZ2になります。アドバイスお願いいたします。

ttyp03

2017/02/20 07:56

ん？A1ではなくI列の2行目から、B列ではなくZ列の2行目から、ということでしょうか。 For文をこうしてみてください。 For Each r In Range(Cells(2, 9), Cells(5001, 26))

tidavest

2017/02/20 08:09

Sub test() Dim r As Range For Each r In Range(Cells(2, 9), Cells(5000, 26)) Cells(r.Row, 1) = Replace(Cells(r.Row, 1), "src=""""", "src=""" & r.Value & """") Next End Sub としたところエラー番号13　型が一致しません　となります。アドバイスお願いいたします。

ttyp03

2017/02/20 08:13

失礼しました。何か間違えてました。 For Each r In Range(Cells(2, 26), Cells(5001, 26)) Cells(r.Row, 9) = Replace(Cells(r.Row, 9), "src=""""", "src=""" & r.Value & """") Next これでどうでしょうか。

tidavest

2017/02/20 08:21

すごいですね。あっとゆうまにできてしまいました。とても感謝です。どうもありがとうございました。

ttyp03

2017/02/22 01:27

うまく動いたようでよかったです。解決したのであれば質問は閉じてくださいませ。

行動規範の内容に同意します