用另一個單元格替換單元格中的值

Question

我正在Excel電子表格中編寫一個宏，以便用另一個單元格的內容替換一個單元格中的值，並在每次看到該單詞時循環顯示替換相同值的原始文本。 例如，我在單元格範圍內有一個文本，其中每行都有一個單詞「tagname」，我想用同一電子表格的單元格A1的值替換「tagname」，例如說「Maggie」，而不是標籤名。 這是我的代碼至今：需要

Private Sub CommandButton21_Click() 
Dim OriginalText As Range 
Dim CorrectedText As Range 
'definition of ranges 

Set OriginalText = Range("H4:H10") 

'setting of ranges 

For Each OriginalText In CorrectedText 

CorrectedText.Value = Replace(OriginalText.Value, "tagname", Range("D2").Value) 

Next OriginalText 
'a loop through the original text to replace the word "tagname" with the value of cell D4 

Columns(2).Clear 'clear column 2 for the Corrected Text 
Range("A24:A30").Offset(, 1).Value = CorrectedText 
'copy corrected text in these cells 
End Sub 

我得到運行時錯誤424，對象。

Answer 1

只是把它放在一起，這就是我將如何做到這一點。

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

Set correctedText = Range("B24") 
Set OriginalText = Range("H4:H10") 

OriginalText.Replace "tagname", Range("d4") 
correctedText.Resize(OriginalText.Rows.Count).Value = OriginalText.Value 
OriginalText.Replace Range("d4"), "tagname" 

End Sub 

或者，如果你真的想要的循環：

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

Set correctedText = Range("B24") 
Set OriginalText = Range("H4:H10") 
i = 0 
For Each cel In OriginalText 
    correctedText.Offset(i).Value = Replace(cel.Value, "tagname", Range("d4")) 
    i = i + 1 
Next cel 

End Sub