VBA查找替换？

czr0373

这段代码如何防止不慎运行宏两次，从而产生不想要的结果。
比如第一次运行，结果是：儿子，女儿，妻子
不慎第二次运行，结果：儿子，儿子，妻子
有没有更好的方法，让第二次运行时，发现不必要替换，直接跳出。
Sub 查找替换()
With Worksheets("老子").Rows(1)
.Replace What:="*儿*", Replacement:="儿子"
.Replace What:="女", Replacement:="女儿"
.Replace What:="*妻*", Replacement:="妻子"
  End With
End Sub

iwangyi

温馨提示，请上附件

czr0373

iwangyi 发表于 2018-8-21 19:44
温馨提示，请上附件

加蔻抠交流一下，散要救舞旗耳靶灵

YZC51

请参考
Sub 查找替换()
    With Worksheets("老子").Rows(1)
        .Replace What:="*儿子*", Replacement:="儿子"
        .Replace What:="*女儿*", Replacement:="女儿"
        .Replace What:="*妻*", Replacement:="妻子"
    End With
End Sub

lsc900707

czr0373 发表于 2018-8-21 19:53
加蔻抠交流一下，散要救舞旗耳靶灵

没必要把个QQ号也这样整吧？

czr0373

lsc900707 发表于 2018-8-21 20:18
没必要把个QQ号也这样整吧？

sorry,麻烦版主妙手删除

czr0373

YZC51 发表于 2018-8-21 19:59
请参考
Sub 查找替换()
    With Worksheets("老子").Rows(1)

源        我的        想法
宏1次        我的书        我的想法
宏2次        我的书        我的书

jiminyanyan

czr0373 发表于 2018-8-21 20:25
sorry,麻烦版主妙手删除

要发QQ，可以直接发呀。。。

jiminyanyan

源数据不要动他，复制到另一表再替换，运行Ｎ次结果都一样．

jiminyanyan

加个变量，刚开始是0，运行一次后就变成1了。
是1，就不继续运行宏。