☰

如何将 Excel 字符串转换为公式？

tag-icon • tag-icon microsoft-excel worksheet-function
如何将 Excel 字符串转换为公式？

我开发了一个包含许多公式的电子表格，并将其发送给一位同事，他的防火墙策略禁止使用 Excel 公式。（别问）。因此，使用搜索和替换，我在所有等号前面都加上了撇号。这样就=CCONCATENATE(A1,A2)变成了'=CONCATENATE(A1, A2)。虽然防火墙允许文件通过，但我们很难逆转该过程。搜索找不到前导撇号。尝试转义撇号或使用CHAR(39)删除它都失败了。感谢您的帮助！

答案1

运行这个简短的宏将恢复所有公式：

Sub RestoreFormulas()
    Dim r As Range

    For Each r In ActiveSheet.UsedRange
        If Left(r.Value, 1) = "=" Then r.Formula = r.Value
    Next r
End Sub

相关内容