将单元格值更改为搜索函数的VBA代码..？

Sub ChangeCellValue()
    Dim searchValue As String
    Dim replaceValue As String
    
    ' 设置要搜索的值和替换的值
    searchValue = "要搜索的值"
    replaceValue = "要替换的值"
    
    ' 在当前活动工作表中搜索并替换单元格值
    With ActiveSheet.UsedRange
        .Replace searchValue, replaceValue, xlWhole, xlByRows, False, False, False, False
    End With
End Sub