Como converter excel string para formula?

Question

Eu desenvolvi uma planilha com muitas fórmulas e a enviei para um colega cuja política de firewall proíbe as fórmulas do Excel. (Não pergunte). Então, usando pesquisa e substituição, eu coloquei todos os sinais iguais com apóstrofos. Então, =CCONCATENATE(A1,A2) se tornou '=CONCATENATE(A1, A2) . Embora o firewall deixe o arquivo passar, não estamos tendo tempo fácil para reverter o processo. A pesquisa não encontra o apóstrofo principal. Tentativas de escapar do apóstrofo ou usar CHAR(39) para removê-lo não tiveram êxito. Obrigado por qualquer ajuda!

    

Answer 1

A execução desta macro curta restaura todas as suas fórmulas:

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