VBA来检查单元是否有特定的文本

我正在尝试查找包含string的单元格中是否存在“付款信息”

如果符合标准，那么代码应该添加新的文本日志到string

“供应商还款付款信息”

变

“供应商还款日志付款信息”

任何人都可以帮忙！

Answer 1

对于A1:A100

 Set rng1 = Range("A1:A100") rng1.Replace "Payment info", "log Payment info", xlPart 

Answer 2

使用以下的UDF

 Function CheckStr(cell As Range, srchString As String) As Boolean If InStr(UCase(cell.Value), UCase(srchString)) <> 0 Then CheckStr = True Else CheckStr = False End If End Function 

重新读你的问题后，我发现它有点不清楚，上面的代码将search某个string的单元格的值。 我不确定我完全明白你想要达到什么目的。

Answer 3

如果要更改的原始文本总是包含“供应商偿还付款信息”文本，那么您可以简单地使用查找和replace命令（Ctrl-h）。 find“供应商还款付款信息”并replace为“供应商付款日志付款信息”。