Repetir a coluna inteira no Excel VBA

Abaixo, vamos olhar para um programa em Excel VBA naquela percorre toda a primeira coluna e colore todos os valores que são inferiores a um determinado valor.

Loop através da coluna inteira no Excel VBA

Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:

1. Primeiro, declare uma variável chamada i do tipo Long. Usamos uma variável do tipo Long aqui porque as variáveis Long possuem uma capacidade maior que as variáveis Integer.

Dim i As Long

2. Em seguida, adicione a linha de código que altera a cor da fonte de todas as células da coluna A para preto.

Columns(1).Font.Color = vbBlack

3. Adicione o loop.

For i = 1 To Rows.Count

Next i

Nota: planilhas podem ter até 65.536 linhas no Excel 2003 e até 1.048.576 linhas no Excel 2007 ou posterior. Não importa qual versão você esteja usando, a linha de código acima percorre todas as linhas (o arquivo do Excel para download está no formato Excel 97-2003).

4. Em seguida, colorimos todos os valores que são inferiores ao valor inserido na célula D2. Células vazias são ignoradas. Adicione as seguintes linhas de código ao loop.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Font.Color = vbRed
End If

Resultado quando você clica no botão de comando na folha (isso pode demorar um pouco):

Loop através do resultado da coluna inteira