Este fórum está sendo desativado

[RPMotta]

Olá pessoal, boa tarde!

Estou precisando de um código que exclua colunas específicas com base no título de cada coluna, por exemplo:

A1: Nome
B1: Idade
C1: Data
D1: Cidade
E1: Curso

Preciso só das colunas "Nome" e "Cidade". No caso, a macro faria a leitura da coluna A "nome" e não apagaria. Na sequencia, faria a leitura da coluna B "idade" e excluiria a coluna. Depois, faria a leitura da coluna C "data" e apagaria e assim por diante, até encontrar uma coluna vazia e parar a macro.

O problema, é que da fonte que eu faço a extração dessas informações nem sempre traz as colunas nessa ordem, por isso eu precisaria de uma macro que faça a exclusão das colunas com base no titulo que se encontra na primeira linha.

Desde ja agradeço.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ExcluiColunas()
 Dim c As Long
  For c = Cells(1, Columns.Count).End(1).Column To 1 Step -1
   If Cells(1, c).Value = "" Then Exit Sub
   If Cells(1, c).Value <> "Nome" And Cells(1, c).Value <> "Cidade" Then Columns(c).Delete
  Next c
End Sub