VBAで、文字列の中に文字列挿入

http://detail.chiebukuro.yahoo.co.jp/qa/question …
上記URLで解説がしてあったのですが、理解できませんでした。

A列に、文字列があり、””の中に、B列の文字を挿入したいと考えています。
A列の文字列は、３０００行にわたり、すべて同じで、全ての””の中に、B列のランダムなセルの全文字を挿入したいと考えています。

A1
html img src="" alt div　この文字列が３０００行にわたり、全て入っており、
B1
http://drowoutclass.co.jp
B列には、上記のようなURLがランダムに違った値で５０００行に入っています。

A1の””には、B1の文字列が入り、
A2の””には、B2の文字列が入る
というふうに、５０００行までの処理をVBAで一挙に行いたいのですが....

アドバイスお願いいたします。

No.1 ベストアンサー 回答者： tantanmm 回答日時： 2017/02/20 15:41

ダブルクォーテーションの扱いがちょっと詰まるかもしれませんが，

A列がすべて同じなら，VBAを使うまでもないですね．

A１に以下を入れてEnter
="html img src=""" & B1 & """ alt div"
あとはオートフィルなどで．

－－－－－－－－－－－－－－－－－
もしVBAでやるとしても，以下のような感じかな

Sub testes()
Dim i As Long
For i = 1 To 5000
Cells(i, "A") = "html img src=""" & Cells(i, "B") & """ alt div"
Next i
End Sub

この回答へのお礼

どうもありがとうございます。出来ました。

お礼日時：2017/02/23 16:11

No.2 回答者： bonaron 回答日時： 2017/02/20 15:52

サンプルです。

Private Sub Sample()
　Dim i As Long
　For i = 1 To 5000
　　Cells(i, 1) = Replace(Cells(i, 1), """""", """" & Cells(i, 2) & """", 1, 1)
　Next
End Sub

この回答へのお礼

どうもありがとうございます。出来ました。

お礼日時：2017/02/23 16:11