有没有原地替换的公式啊

wp231957

=REGEXP(E14:L19,"李四",2,"ABC")   这个公式 虽然实现了替换  但是 它生成了一个新的数组

有没有什么公式  可以实现CTRL+F 那样的原地替换呢

ww87725244

没有，需要VBA

leepoison

你对函数是不是有啥误解
Sub ReplaceABCwithXYZ()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim searchText As String
    Dim replaceText As String
   
    ' 设定要查找和替换的文本
    searchText = "abc"
    replaceText = "xyz"
   
    ' 设置工作表，当前工作表为ActiveSheet
    Set ws = ActiveSheet
   
    ' 设置要查找的范围，这里是整个工作表的已用区域
    Set rng = ws.UsedRange
   
    ' 遍历范围内的每个单元格
    For Each cell In rng
        If InStr(cell.Value, searchText) > 0 Then
            ' 使用Replace函数替换文本
            cell.Value = Replace(cell.Value, searchText, replaceText)
        End If
    Next cell
   
    MsgBox "替换完成！"
End Sub