Como excluir colunas em vba (com exemplos)

Você pode usar os seguintes métodos para excluir colunas no Excel usando VBA:

Método 1: excluir uma coluna

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

Este exemplo específico removerá a coluna C da pasta de trabalho atual.

Método 2: remover todas as colunas do intervalo

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

Este exemplo específico excluirá todas as colunas no intervalo B a D na pasta de trabalho atual.

Método 3: excluir várias colunas específicas

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

Este exemplo específico removerá as colunas B e D da pasta de trabalho atual.

Os exemplos a seguir mostram como usar cada um desses métodos na prática com o seguinte conjunto de dados no Excel:

Exemplo 1: Excluir uma coluna no VBA

Podemos criar a seguinte macro para remover apenas a coluna C do nosso conjunto de dados:

 SubDeleteColumns ()
Columns(" C ").Delete
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que apenas a coluna C (a coluna “Assistência”) foi removida do conjunto de dados.

Exemplo 2: Remover todas as colunas do intervalo

Podemos criar a seguinte macro para remover todas as colunas do intervalo B a D:

 SubDeleteColumns ()
Columns(" B:D ").Delete
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que cada coluna entre B e D (as colunas “Pontos”, “Assistências” e “Rebotes”) foi removida do conjunto de dados.

Exemplo 3: Excluir várias colunas específicas

Podemos criar a seguinte macro para remover as colunas B e D do conjunto de dados:

 SubDeleteColumns ()
Range(" B:B,D:D ").Delete
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que as colunas B e D (as colunas “Pontos” e “Rebotes”) foram removidas do conjunto de dados.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como contar o número de linhas no intervalo
VBA: Como contar o número de colunas usadas
VBA: Como encontrar a última coluna usada