如何执行通过VBA插入到Excel单元格中的公式？

一、从根源解决：修改原VBA逻辑 #

你的test函数返回的是带等号的文本字符串，Excel会将其识别为普通文本而非可计算的公式，这就是无法自动生效的核心原因。若要直接插入可生效的公式，建议改用Sub过程而非返回字符串的UDF：

' 给指定单元格区域插入引用目标单元格的公式
Sub BatchInsertFormula(targetArea As Range, sourceCell As Range)
    targetArea.Formula = "=" & Replace(sourceCell.Address, "$", "")
End Sub

' 示例：给A1:A100批量插入引用N3的公式
Sub ExampleUsage()
    BatchInsertFormula Range("A1:A100"), Range("N3")
End Sub

二、批量转换现有文本为公式 #

如果已经有大量单元格显示=N3这类文本内容，可通过以下方式批量转换：

方法1：选中目标区域后运行VBA #

Sub ConvertTextToFormula()
    Dim cell As Range
    For Each cell In Selection
        ' 仅处理以等号开头的单元格，避免误操作
        If Left(cell.Value, 1) = "=" Then
            cell.Formula = cell.Value ' 将文本内容设为公式，自动触发计算
        End If
    Next cell
End Sub

方法2：无需手动选中，指定区域批量转换 #

Sub ConvertRangeTextToFormula()
    Dim rng As Range, cell As Range
    Set rng = Range("A1:C100") ' 替换为你的目标单元格区域
    For Each cell In rng
        If Left(cell.Value, 1) = "=" Then
            cell.Formula = cell.Value
        End If
    Next cell
End Sub

三、手动批量操作（无需VBA） #

如果不想编写代码，可通过Excel自带功能快速转换：

• 选中所有需要处理的单元格
• 按下Ctrl+H打开替换对话框
• 查找内容输入=，替换内容也输入=
• 点击「全部替换」，Excel会重新识别这些内容为公式并自动计算

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