VBA IF/THEN 查找和替换

Question

我想就如何在我的 vba 代码中合并一个 if-then 语句来查找和替换某些文本寻求一些帮助。

我的情况有几组数字:8815、0815、1234 和 5678，我当前的代码找到“815”并将其替换为 '0815，这样前导零就不会丢失。显然我的问题是它在 0815 组数字上正确执行并在 8815 组数字上执行的替换语句。

我怎么能写一个命令说，如果 8815 然后 8815 但如果“815”不在数字中，则不更改数字？

 Columns("H").Replace What:="815", Replacement:="'0815", SearchOrder:=xlByColumns

感谢您对此提供的任何帮助，因为我已经四处寻找了几个小时，但没有找到太多关于此的信息。

Answer 1

使用参数 LookAt:=xlWhole只有当单元格中的值正是您要查找的值时，这才会替换。