Question

我试图查找包含字符串的单元格中是否存在“付款信息”

如果符合条件，则代码应将新文本 log 添加到字符串

“供应商偿还付款信息”

变为

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

任何人都可以帮忙！

Answer 1

使用以下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

重新阅读你的问题之后我发现它有点不清楚，上面的代码将搜索某个字符串的某个字符串的值。我不确定我完全理解你想要达到的目标。

Answer 2

如果要更改的原始文本始终包含文本＆＃34;供应商偿还付款信息＆＃34;，那么您可以简单地使用Find＆amp;替换命令（Ctrl-h）。查找＆＃34;供应商偿还付款信息＆＃34;并替换为＆＃34;供应商偿还日志付款信息＆＃34;。

Answer 3

A1:A100

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

VBA检查Cell是否有特定的文本

3 个答案: