Usando o Excel, quero remover certos caracteres do spreadhseet

Question

Eu tenho uma longa lista de entradas em uma planilha de dados do Excel, como:

1235. "email address",

Como posso remover os caracteres em negrito, ou seja, 1235. " e ", disso?

Os números iniciais vão de 279 a 5000.

    

Answer 1

Não é tão difícil usar as funções corretas. O MID pega uma parte de uma string iniciando uma posição inicial especificada para um número especificado de caracteres. FIND encontra um caractere em um texto e retorna a posição. CHAR (34) é usado para procurar o "sinal, porque senão você teria muitos". LENGTH é usado para encontrar o comprimento da string.

=MID(B5,FIND(CHAR(34),B5)+1,LENGTH(B5)-(FIND(CHAR(34),B5)))

Eu, portanto, extraio a parte do texto que começa depois do sinal de "duração de um" até o final da string.

    

Answer 2

Na verdade, uso uma macro para remover caracteres indesejados do Excel.

(Se você sabe como criar uma macro, pule para baixo no código)

Para criar uma macro, abra sua pasta de trabalho e pressione Alt + F11. Isso abrirá o Visual Basic. No canto superior esquerdo, haverá um pequeno botão que se parece com isso: Cliquenasetaparabaixoeselecione"Módulo"

Copie o seguinte código e cole-o na sua janela vazia do Módulo:

Sub RemoveTags()
    Dim r As Range

    Selection.NumberFormat = "General"  'set cells to text numberformat

    With CreateObject("vbscript.regexp")
      .Pattern = "\<.*?\>"
      .Global = True


    For Each r In Selection
        r.Value = Replace(.Replace(r.Value, ""), "&nbsp;", " ")
        r.Value2 = Replace(.Replace(r.Value2, ""), "&quot;", "")
      Next r

    End With
End Sub

Onde eu tiver "   " e " " ", substitua aqueles com os caracteres que você deseja substituir. Nas aspas que seguem cada caractere, insira o que você deseja que seja substituído por. No meu exemplo, a primeira linha coloca em um espaço, a segunda linha substitui os caracteres por nada (que é o que eu acho que você está procurando).

Você pode copiar / colar as seções de "For Each R In Selection" para "Next r" e inserir mais caracteres para substituir, se necessário.

Salve e feche o Visual Basic.

Para executar o código, você precisará ativar o modo de desenvolvedor. Aqui está um link para um resumo rápido de como fazer isso. Selecione as células que você quer que os caracteres sejam substituídos, clique na guia do desenvolvedor e clique no botão "Macros". Selecione a macro "Remover tags" e clique em executar.

Eu sei que o VBA pode ser intimidante no começo. Mas acredite, esse código me ajudou a limpar o formato xml de milhares de linhas de dados. Espero que ajude!