![如何将 Excel 字符串转换为公式?](https://linux22.com/image/1510529/%E5%A6%82%E4%BD%95%E5%B0%86%20Excel%20%E5%AD%97%E7%AC%A6%E4%B8%B2%E8%BD%AC%E6%8D%A2%E4%B8%BA%E5%85%AC%E5%BC%8F%EF%BC%9F.png)
我开发了一个包含许多公式的电子表格,并将其发送给一位同事,他的防火墙策略禁止使用 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