Procura e substitui o apóstrofo principal no Excel

1

Como faço para pesquisar e substituir o caractere de apóstrofo (') no Excel, quando é o primeiro caractere em uma célula?

Especificamente, gostaria de poder pesquisar e substituir o sinal = em uma fórmula com '@ e depois revertê-lo de volta para = e ressuscitar a fórmula original.

    
por Tim Galvin 23.10.2015 / 23:15

2 respostas

2

Aqui está um par de macros para fornecer a funcionalidade desejada:

Sub RemoveFormulas()
   For Each r In ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
      r.Value = Replace(r.Formula, "=", "'@")
   Next r
End Sub

Sub RestoreFormulas()
   Dim r As Range
   For Each r In ActiveSheet.UsedRange.Cells.SpecialCells(xlCellTypeConstants)
      If r.PrefixCharacter = "'" Then
         r.Formula = Replace(r.Value, "'@", "=")
      End If
   Next r
End Sub
    
por 24.10.2015 / 00:02
1

Por incrível que pareça, você escolheu um caractere que é usado no Excel para "escapar" de células. No entanto, eu procurei um pouco e consegui encontrar um trabalho, dependendo do tamanho do seu arquivo.

Se você exportar sua tabela para um arquivo "Texto delimitado por tabulações" e, em seguida, importá-la novamente após modificar o sinal = para @, deverá reimportar os caracteres como uma aspa real em vez do caractere de escape. Então você deve ser capaz de executar uma pesquisa e substituir por '@ to =.

Novamente, isso provavelmente funcionará apenas enquanto você não estiver fazendo um arquivo grande do Excel, especialmente sem tabelas e gráficos, etc.

    
por 23.10.2015 / 23:56