Sub Traduzir_Formulas_Ingles_do_Lingua_Nativa()
Range("A2") = Range("A1").Formula
End Sub
Sub Traduzir_Formulas_Lingua_Nativa_do_Ingles()
Range("A2") = "'" & Range("A1").Formula
End Sub
'=LOOKUP(1E100,FREQUENCY(IF(A2:A6=0,ROW(A2:A6)),IF(A2:A6<>0,ROW(A2:A6))))