如何將Excel字串轉換為公式?

如何將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

相關內容