VBA自定义公式内容替换函数运行时Excel频繁闪退问题求助

以下是触发Excel崩溃的核心问题点：

• 违反工作表自定义函数(UDF)的运行限制
  Excel中通过单元格公式调用的自定义函数，仅允许向调用单元格返回计算结果，禁止执行任何修改Excel对象的操作，包括修改其他单元格内容、选中单元格、修改工作表属性等。你当前的函数既修改目标单元格的公式，又调用Select方法选中单元格，完全违反该规则，是触发Excel崩溃的最主要原因。
• 存在多处基础语法错误
  1. VBA中字符串赋值需使用双引号，你代码中用的单引号是注释标识符，valueLookFOr ='sheet1' 这行相当于变量未被正确赋值，后续逻辑全部异常。
  2. 变量拼写错误：参数定义为valueLookFor，赋值时写成valueLookFOr，大小写拼写不一致会导致变量赋值失败（如果没有开启Option Explicit的话会隐式创建新变量，逻辑完全错乱）。
  3. Find方法返回的是Range对象，若未找到匹配内容会返回Nothing，你直接用condOne <> 0做判断，当condOne为Nothing时会直接触发运行时错误，无错误处理的情况下会导致Excel强制退出。
  4. Replace方法返回的是布尔值（表示替换是否成功），你代码中.Replace(valueLookFor,valueChangeTo).Select 相当于对布尔值调用Select方法，属于对象调用错误，直接触发运行时异常。
• 引用对象存在不确定性
  代码中使用ThisWorkbook.ActiveSheet引用活动工作表，函数调用时的活动工作表可能不是你预期的工作表，若对应c & n的单元格引用无效，会触发引用错误。

修复建议 #

该需求本质是修改单元格内容，不适合用自定义函数实现，建议改为Sub过程调用，修正后的参考代码如下：

Public Sub formchange(c As String, n As Integer, Optional valueLookFor As Variant = "sheet1", Optional valueChangeTo As Variant = "sheet2")
    Dim targetRng As Range
    Dim condOne As Range
    On Error Resume Next ' 简单错误处理，避免直接崩溃
    Set targetRng = ThisWorkbook.ActiveSheet.Range(c & n)
    If Err.Number <> 0 Then
        MsgBox "单元格引用无效"
        Exit Sub
    End If
    On Error GoTo 0
    
    Set condOne = targetRng.Find(What:=valueLookFor, LookIn:=xlFormulas)
    If Not condOne Is Nothing Then
        targetRng.Replace What:=valueLookFor, Replacement:=valueChangeTo, LookIn:=xlFormulas
    End If
End Sub

需要执行替换时，运行该宏传入对应参数即可。

内容的提问来源于stack exchange，提问作者xlmaster