使用通配符查找和替换的VBA代码？

Sub FindAndReplaceWithWildcard()
    Dim rng As Range
    Dim cell As Range
    Dim searchText As String
    Dim replaceText As String
    
    searchText = "apple*" ' 设置要查找的文本，*代表通配符
    replaceText = "orange" ' 设置要替换的文本
    
    Set rng = ActiveSheet.UsedRange ' 设置要查找和替换的范围
    
    For Each cell In rng
        If cell.Value Like searchText Then ' 使用Like运算符进行通配符匹配
            cell.Value = Replace(cell.Value, searchText, replaceText) ' 使用Replace函数进行替换
        End If
    Next cell
End Sub