问题解决了，分加了。再问 如有一字符串"abcd123Abc456aBcde78abcD",如何把里面的"Abc"(区分大小写)替换成"KKKKK"？

Question

Replace("abcd123Abc456aBcde78abcD","Abc","KKKKK",,vbBinaryCompare)
如果要大小写无关请用vbTextCompare

Answer 1

' SearchLine is input, SearchFor is what to search for, ReplaceWith is the replacementFunction sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)
    Dim vSearchLine As String, found As Integer
    
    found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine
    If found <> 0 Then
        vSearchLine = ""
        If found > 1 Then vSearchLine = Left(SearchLine, found - 1)
        vSearchLine = vSearchLine + ReplaceWith
        If found + Len(SearchFor) - 1 < Len(SearchLine) Then _
            vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) + 1)
    End If
    sReplace = vSearchLine
    
End Function