Bom dia!!

Já tentou algo assim.

Sub AleVBA()
On Error Resume Next
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Att

Belan,

Bom dia!

Segue minha sugestão.

Alexandre, esse comando eu estou utilizando, mas ele excluir as linhas inteiras.. porém eu tenho colunas totalmente em branco.
A planilha foi extraida do sistema da empresa que trabalho, e ao tentar fazer essa limpeza para deixar o Banco de dados melhor, as células que era mescladas ficaram ""desmescladas"", aí que surgiu as colunas totalmente em branco.. já fiz de tudo.

Disponibiliza um arquivo modelo fica mais facil ajudar.

Wagner! Bom dia.
Muito obrigado por ter enviado seu material. Selecionou meu problema. (Eu achava que poderia montar um código mais simples/menor que o seu, mas não tem jeito)
Unica coisa é que ele demora muito executando, fica piscando até dar o loop todo. Se for uma planilha imensa eu to lascado.
Existe alguma forma de otimizar isso?

Obrigado a todos!!

Belan,

Bom dia!

Bom... até acredito que deva existir alguma coisa que possa ser otimizada. Todavia, não acredito muito em um grande ganho de performance. Vamos esperar que os nossos amigos "feras" aqui do fórum entrem com suas soluções...

Peço, por gentileza, votar positivamente no tópico

Belan, não sei se teremos ganho de performance, mas pode tentar a rotina abaixo, a diferença da a que o colega Wagner indicou, é que na rotina dele estamos verificando linha a linha por colunas, e se for um a Vazio deletamos, e nesta rotina verificamos por Colunas e se na mesma temos qualquer celula em branco, sem efetuar comparações com as demais linhas, mas faça os testes e veja se a performance melhora.

Sub DeletarColunasCellsBlanks()
    Dim UltimaColuna As Long
    Dim xCol As Long
    
    UltimaColuna = Sheets("Plan1").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
        
    For xCol = UltimaColuna To 1 Step -1
        
        With Columns(xCol)
            
        On Error Resume Next
            'Verifica se temos alguma celula em branco na coluna
            CCount = .SpecialCells(xlCellTypeBlanks).Areas(1).Cells.Count
                
            'Se positivo Deletamos a Coluna
            If CCount <> 0 Then
                .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
            End If
                    
        End With
    
        CCount = Nothing
        
    Next xCol

End Sub

Quanto a questão que citou de piscar a tela, podemos utilizar a instrução "Application.ScreenUpdating = False" para evitar a exibição das açoes enquanto a rotina é executada, ou seja, na rotina do Wagner, adicione esta instrução logo apos :
UltimaColuna = Sheets("Plan3").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False

e no final da rotina apos o "Next i" adicione novamente, mas revertendo a propriedade para True, descongelando a tela.

Application.ScreenUpdating = True

Boa tarde Mauro..
Seu codigo me parece bom, usei seu código aqui e acabou excluindo todas as colunas, estou procurando o erro ainda.

Obrigado!!