Excel VBAで毎回新しく入力したキーワードに指定のキーワードを置換できますか？

質問

仮ファイルに、シートA・B・Cがあります。
シートAのセルB3は、キーワードが入っています。
シートBにはA・B・F・G・H列の3行目から、データが入っています。
シートCには、まだ何も入っていません。
今、シートB内にあるの“○○”というキーワードだけを、シートAのセルB3で指定しているキーワードに置換させたいと思っています。
そのキーワードは毎回変わるので、シートBの中ではなく、別シートにしています。
この置換は、ただ“○○”というキーワードの入っているシートBにそのまま結果を出力するのではなく、別シートのシートCに置換されたデータに出力したいのです。
それで、以下のようなコードを書きましたが、作動しません。
A・B・F・G・H列のデータは配列に入れましたが、それが失敗なのでしょうか…？
どこがおかしいか教えて頂けないでしょうか？
よろしくお願いします。

Public ovtA As Long
Public ovtB As Long
Public gglF As Long
Public gglG As Long
Public gglH As Long

Public i As Integer
Public j As Integer
Public k As Integer
Public l As Integer
Public m As Integer

Public TD1 As Worksheet
Public TD2 As Worksheet

Sub Test()

Workbooks("仮.xls").Activate
Set TD1 = Worksheets("シートB")
Set TD2 = Worksheets("シートC")

ovtA = TD1.Range("A65536").End(xlUp).Row
ovtB = TD1.Range("B65536").End(xlUp).Row
gglF = TD1.Range("F65536").End(xlUp).Row
gglG = TD1.Range("G65536").End(xlUp).Row
gglH = TD1.Range("H65536").End(xlUp).Row

For i = 3 To ovtA - 1
For j = 3 To ovtB - 1
For k = 3 To gglF - 1
For l = 3 To gglG - 1
For m = 3 To gglH - 1

If TD2.Range("A3") = "" Then
TD1.Activate
Selection.Replace what:="○○", Replacement:=Worksheets("シートA").Range("B3")

TD1.Range(A).Copy Sheets("完成原稿").Cells(1, 1)
TD1.Range(B).Copy Sheets("完成原稿").Cells(1, 2)
TD1.Range(F).Copy Sheets("完成原稿").Cells(1, 6)
TD1.Range(G).Copy Sheets("完成原稿").Cells(1, 7)
TD1.Range(H).Copy Sheets("完成原稿").Cells(1, 8)

Exit For

End If

Next
Next
Next
Next
Next

End Sub

回答No.2

n-jun · ベストアンサー

＃１です。

スピードは重視してませんが、

Sub try()
Dim mystr As String
Dim i As Long, j As Long
Dim v

If Worksheets("シートＣ").Range("A3").Value <> "" Then Exit Sub

With Worksheets("シートＢ")
v = .Range(.Range("A3"), .Cells(Rows.Count, "H").End(xlUp))
End With

For i = 1 To UBound(v, 1)
For j = 1 To 8
v(i, j) = Replace(v(i, j), "○○", Worksheets("シートＡ").Range("A3").Value)
Worksheets("シートＣ").Range("A3").Offset(i - 1, j - 1).Value = v(i, j)
Next
Next

Erase v
End Sub

こうゆう事なのでは？って感じがしましたけど。

お礼

n-jun様

ありがとうございます！
助かりました！

シートBのデータをシートCに出力する際、ランダムに5つだけ出力とかってできますか？
シートBのデータはただひたすら増えていくんですよ…。
なのでそんなこともできるのであれば教えて頂ければ幸いです。

よろしくお願いします。

回答No.5

n-jun

＃４です。

乱数の重複チェックなし版なら、

Sub try_next()
Dim i As Long, j As Long
Dim cnt As Integer
Dim r As Range

If Worksheets("シートＣ").Range("A3").Value <> "" Then Exit Sub

cnt = 0

Do

i = Int(Rnd * (Worksheets("シートＢ").Cells(Rows.Count, 1).End(xlUp).Row)) + 1

Set r = Worksheets("シートＢ").Range("A" & i).Resize(1, 8)

If Application.CountIf(r, "○○") > 0 Then
For j = 1 To 8
Worksheets("シートＣ").Range("A3").Offset(cnt, j - 1).Value = _
Replace(r.Item(j).Value, "○○", Worksheets("シートＡ").Range("A3").Value)
Next
cnt = cnt + 1
End If

Loop Until cnt = 5

Set r = Nothing
End Sub

こんな感じでしょうか。
重複チェックあり版は困惑です。

お礼

n-jun様

うわわわわっ！
ご丁寧にありがとうございす！
助かりました！！

回答No.4

n-jun

＃２です。

＞シートBのデータをシートCに出力する際、ランダムに5つだけ出力とかってできますか？
ランダムとは乱数によるもの？
それとも任意に選択すること？

任意に選択するのなら、どのように条件を与えたいのか。

お礼

n-jun様

乱数というのでしょうか。
勉強不足ですみませんが、無作為に出力する方法が希望です。

度々すみません。

よろしくお願いします。

回答No.3

n-jun

＃２です。

＞Dim mystr As String
いらなかったです。
ごめんなさい。

回答No.1

n-jun

Selection.Replace what:="○○", Replacement:=Worksheets("シートA").Range("B3")
ここで”どこをSelectしているのか”確認してみましたか？

Replace関数　
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/function/vba_string.html#replace
ご参考まで。

お礼

n-jun様

引数が間違っているんですね。
この関数の意味をよく分からずに作っていました…。
ありがとうございます。

他にも間違いがあったら教えて頂けないでしょうか？