Como converter string do Excel em fórmula?

Question

Desenvolvi uma planilha com muitas fórmulas e enviei para um colega cuja política de firewall proíbe fórmulas do Excel. (Não pergunte). Portanto, usando pesquisar e substituir, coloquei apóstrofos todos os sinais de igual. Então isso =CCONCATENATE(A1,A2)se tornou '=CONCATENATE(A1, A2). Embora o firewall tenha permitido a passagem do arquivo, não será fácil reverter o processo. A pesquisa não encontra o apóstrofo inicial. As tentativas de escapar do apóstrofo ou de CHAR(39)removê-lo não tiveram sucesso. Obrigado por qualquer ajuda!

Answer 1

A execução desta pequena macro restaurará 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