循环遍历单元格中的值以替换文本

Question

这是Looping through Excel Values in Excel VBA之后的下一个问题。

原文＆＃34;标记名＆＃34;在所有情况下，单词D2中的单词被替换为单词。但是，它必须继续被我在loopText（D2到D4）下定义的单元格范围所取代。 我创建了两个循环，一个在另一个循环中。 请帮助我，因为它给了我以下内容：

  

运行时错误＆＃39; 1004＆＃39;：应用程序定义或对象定义的错误。

以下是我的代码：

Sub CommandButton21_Click()
Dim correctedText As Range
Dim OriginalText As Range
Dim loopText As Range
Dim i As Long
Dim cel As Range
Dim cel2 As Range

Set correctedText = Range("B24")
Set OriginalText = Range("H3:H20")
Set loopText = Range("D2:D4")
i = 0
For Each cel2 In loopText

    For Each cel In OriginalText
        correctedText.Offset(i).Value = Replace(cel.Value, "tagname", Range(cel2.Value))
            i = i + 1
    Next cel

Next cel2
End Sub