Abaixo, veremos um programa em Excel VBA que deleta células em branco.
Situação:
1. Primeiro, declaramos duas variáveis do tipo Integer. Um contador denominado e outro denominado i. Inicializamos o contador de variável com valor 0.
Dim counter As Integer, i As Integer
contador = 0
2. Em seguida, verificamos se cada célula está vazia ou não (significa diferente de). Estamos usando um loop para isso. Se não estiver vazio, escrevemos o valor na coluna B. O contador controla o número de células que foram copiadas para a coluna B. Cada vez que copiamos um valor para a coluna B, incrementamos o contador em 1. Esta parte do programa parece o seguinte:
Para i = 1 a 10
If Cells (i, 1) .Value "" Then
Células (contador + 1, 2) .Valor = Células (i, 1) .Valor
contador = contador + 1
Fim se
Proximo eu
Resultado até agora:
3. Finalmente, esvaziamos Range ("A1: A10"), copiamos os valores da coluna B para a coluna A e esvaziamos Range ("B1: B10").
Intervalo ("A1: A10"). Valor = ""
Intervalo ("A1: A10"). Valor = Intervalo ("B1: B10"). Valor
Intervalo ("B1: B10") = ""
Resultado:
