vba - Excel 查找和替换宏

Question

我有一个导入所有订单的工作表，但是在创建标签时，我只有有限的标题空间。我在 Excel 中使用查找和替换宏，它在我当前事件的导入工作表中查找，并用另一个工作表中的文本替换，该工作表我用作具有 2 列的表，A 列是导入时的标题，B 列是我想把它改成什么。这个脚本工作得很好，只是它没有找到具有不同开头的列。例如:

导入的工作表:

条目 1:香蕉

条目 2:30 X BANANAS

table :

A栏:香蕉

B栏:黄香蕉

//脚本运行//

输出:
导入的工作表:

条目 1:黄香蕉

条目 2:30 X BANANAS

正如您在上面的示例中看到的那样，“30 X BANANAS”条目并没有像我希望的那样更改为“30 X Yellow Bananas”。我猜我需要在下面的脚本中添加通配符代码行，但我不确定如何合并它？

Sub FindReplace()
  Dim s As String
  Dim cell As Range
  For Each cell In Range("H3:H5000").Cells
    If cell <> "" Then
      ans = Application.VLookup(cell, Sheets("Script").Range("A1:B1000"), 2, 0)
      If Not IsError(ans) Then cell = ans
    End If
  Next cell
End Sub

Answer 1

如果您使用 Range.Replace函数而不是 VLookup 函数，你会得到你正在寻找的结果。

前



后

Sub FindNReplace()
Dim InputRng As Range, ReplaceRng As Range

'Set Range Values
Set InputRng = Range("A1:A5")
Set ReplaceRng = Sheets("Script").Range("A1:B100")

'Spin through replacement range and perform replace
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
End Sub