Neste artigo, aprenderemos como excluir colunas vazias por meio do VBA no Microsoft Excel. Vamos deletar as colunas que estão completamente vazias, isso significa que se não houver dados dentro da coluna inteira esses dados.
Vamos dar um exemplo e entender:
Temos dados no intervalo A1: I21, em que a coluna A contém Nome, a coluna B está em branco, a coluna C contém o endereço, a coluna D Cidade, a coluna E está em branco, a coluna F contém a região, a coluna G está em branco, a coluna H contém o país nome e a coluna I contém o número de telefone.
Queremos excluir as colunas em branco dos dados, siga as etapas e códigos indicados abaixo:
- Abra a página do VBE para pressionar a tecla Alt + F11
- Insira o módulo para escrever o código
- Escreva o código abaixo mencionado:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell) .Column Faça até C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 Then Columns (C) .Delete End If C = C - 1 Loop End Sub
Explicação do código:
Primeiro definimos todas as variáveis. Em seguida, o intervalo de colunas em branco, então usamos “Do until loop” para deletar as colunas em branco. E agora definimos a coluna em branco e o comando delete.
Para executar o código, pressione a tecla F5 no teclado,
- Todas as colunas em branco serão excluídas.
Desta forma, podemos excluir as colunas vazias por meio do VBA no Microsoft Excel.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail