excel – 从单元格值中查找和replace多个文本

我有一个Excel模板数据表。 我希望能够将我在A1:A5出现的单词与我在B1:B5中input的文本replace为文档的其余部分。

现在我要走了（而且我不太了解VBA ）：

 Sub UpdatePartial() With ActiveSheet.UsedRange .Replace "ZIPCODE", "B1", xlPart .Replace "NAME", "B2", xlPart .Replace "CITY", "B3", xlPart .Replace "STATE", "B4", xlPart .Replace "PHONE", "B5", xlPart End With End Sub 

但是我想用B1-B5的内容replace字母文本“B1”，“B2”，…，“B5”等

Answer 1

而不是

.Replace "ZIPCODE", "B1", xlPart
使用
.Replace [a1].Value, [b1].Value, xlPart

如果你想只用一个单元格来replace整个单词（例如，如果你想用狗replace猫 ，但是避免把catscan换成 狗 ，那么可以在string之前或之后进行空格检查）

使用
.Replace " " & [a1].Value, " " & [b1].Value, xlPart
.Replace [a1].Value & " ", [b1].Value & " ", xlPart

您更新的问题

 Sub UpdatePartial() Dim rng1 As Range ActiveSheet.UsedRange Set rng1 = Intersect(ActiveSheet.UsedRange, Range(Cells(6, "a"), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count))) With rng1 .Replace [a1].Value, [b1].Value, xlPart End With End Sub 

Answer 2

你将能够引用一个单元格（地址）值

 Range("B1").value