VBA Excel - Fórmulas mal importadas - Fix Badly Imported Formulas

Termo de Responsabilidade

Se você importou fórmulas de outra planilha, pode ter passado por esse problema, onde um apóstrofe é adicionado ao início de cada fórmula. Então ao invés de exibir os resultados da fórmula, você vê a própria fórmula. O código baixo vai corrigir isso, basta marcar as planilhas e executar.

Sub FixFormulas()

Dim arrData() As Variant

Dim rng As Excel.Range

Dim lRows As Long

Dim lCols As Long

Dim i As Long, j As Long

' let's not accidently use this on a non-Range object

If TypeName(Selection) <> "Range" Then Exit Sub

Let lRows = Selection.Rows.Count

Let lCols = Selection.Columns.Count

ReDim arrData(1 To lRows, 1 To lCols)

Set rng = Selection

Let arrData = rng.Value

For j = 1 To lCols

  For i = 1 To lRows

    Let arrData(i,j) = "=" & Right(arrData(i,j), Len(arrData(i,j)) - 1)

 Next i

Next j

Let rng.Value = arrData

Set rng = Nothing

End Sub

Reference: jpsoftwaretech.com

Tags: VBA, Excel, célula, cell, apostrofe, formulas, imported, badly