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

这是之后的下一个问题在 Excel VBA 中循环遍历 Excel 值 https://stackoverflow.com/questions/33699753/replacing-a-value-in-a-cell-with-another/33700469?noredirect=1#comment55252949_33700469.

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

运行时错误“1004”：应用程序定义或对象定义的错误。

下面是我的代码：

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