excel - 查找并替换单元格值中的多个文本

Question

我有一个包含模板数据的 Excel 工作表。我希望能够将 A1:A5 中出现的单词替换为我在 B1:B5 中为文档的其余部分键入的内容。

现在我要离开这个(我不太了解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

但我想将 A 替换为 B1-B5 的内容，而不是文字文本 "B1","B2", 。 ..、“B5” 等

Answer 1

而不是

.替换“ZIPCODE”、“B1”、xlPart
使用
.替换[a1].Value，[b1].Value，xlPart

如果您只想替换单元格内的整个单词 (即，如果您想将 cat 替换为 dog 但避免将 catscan 更改为 dogscan，则构建空间检查字符串之前或之后)

使用
.替换“”和[a1].Value，“”和[b1].Value，xlPart
.替换[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