Ir ao conteúdo

Apagar caracteres no VBA.


AlysonR

Posts recomendados

Postado

Eu tenho uma coluna no excel que esta totalmente errada. Queria apagar apenas alguns caracteres desta coluna para que fique o texto que eu precise.

Caracteres a ser apagados:

": "
" -"
" -"

Exemplo da tabela:


: LPV917 -

: LPV950 -

: TFR102 -

: TPS133 -
: TPS133 -
: TPS133 -
: TPS133 -
: TPS133 -
: TPS133 -
: TPS133 -

: TPS278 -

: FIT003 -
: FIT003 -
: FIT003 -
: FIT003 -
: FIT003 -
: FIT003 -
: FIT003 -
(Coluna A)

Muito obrigado desde já.

Postado

Não precisa vba, numa coluna à parte experimente:

=ARRUMAR(SUBSTITUIR(SUBSTITUIR(A2;":";"";1);"-";"";1))

Arraste para baixo. Depois copie e cole especial 'valores' e delete a coluna repetida.

Se precisar realmente ser em macro, avise.

Abraços.

Postado

Otimo código, teria como fazer esse código em VBA?

Não precisa vba, numa coluna à parte experimente:

=ARRUMAR(SUBSTITUIR(SUBSTITUIR(A2;":";"";1);"-";"";1))

Arraste para baixo. Depois copie e cole especial 'valores' e delete a coluna repetida.

Se precisar realmente ser em macro, avise.

Abraços.

Realmente preciso pois a planilha está completamente automática, somente esta coluna ficou fora do padrão.

A questão é que este arquivo é para pessoas que não tem muito conhecimento usarem então seu eu deixar o código elas simplesmente podem apagar (como já aconteceu varia vezes ^^:tantan:

Alguém sabe como usar o código replace?

Consegui com este código.

Muito obrigado jeffsilveira, pela formula que me deu a ideia deste código ^^.

Sub Alterar()
Dim LR As Long, k As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For k = LR To 1 Step -1
If Cells(k, "A").Value <> "" Then
c1 = Cells(k, "A").Replace(":", "", xlPart)
c2 = Cells(k, "A").Replace(" ", "", xlPart)
c3 = Cells(k, "A").Replace("-", "", xlPart)
End If
Next k
Application.ScreenUpdating = True
End Sub

  • Membro VIP
Postado

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!