Wie konvertiere ich eine Excel-Zeichenfolge in eine Formel?

Question

Ich habe eine Tabelle mit vielen Formeln erstellt und sie an einen Kollegen geschickt, dessen Firewall-Richtlinie Excel-Formeln verbietet. (Fragen Sie nicht). Also habe ich mithilfe von Suchen und Ersetzen allen Gleichheitszeichen Apostrophe vorangestellt. So =CCONCATENATE(A1,A2)wurde daraus '=CONCATENATE(A1, A2). Obwohl die Firewall die Datei durchgelassen hat, fällt es uns nicht leicht, den Vorgang umzukehren. Die Suche findet das führende Apostroph nicht. Versuche, das Apostroph zu umgehen oder CHAR(39)es mit zu entfernen, waren erfolglos. Vielen Dank für jede Hilfe!

Answer 1

Durch Ausführen dieses kurzen Makros werden alle Ihre Formeln wiederhergestellt:

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