Crie uma macro que pinte as linhas da tabela alternando entre o branco (ou sem preenchimento) e o cinza claro.
Exercício Resolvido
Resolvendo o Problema
-
Primeiro declaramos as variáveis.
Dim UltLinha As Long
Dim UltColuna As Long
Dim i As Integer
-
Atribuímos a linha e a coluna que contém o último dado a variáveis
UltLinha = 10
UltColuna = 4
-
Criamos um loop For Next da primeira linha com dados até a última, porém intercalando as linhas através do uso do Step
For i = 3 To UltLinha Step 2
Range(Cells(i, 1), Cells(i, UltColuna)).Interior.Color = RGB(200, 200, 200)
Next i
-
O código final compilado seria o seguinte:
Dim UltLinha As Long
Dim UltColuna As Long
Dim i As Integer
UltLinha = Cells(Rows.Count, 2).End(xlUp).Row
UltColuna = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 3 To UltLinha Step 2
Range(Cells(i, 1), Cells(i, UltColuna)).Interior.Color = RGB(200, 200, 200)
Next i
Código Consolidado
Sub Resolucao()
Dim UltLinha As Long
Dim UltColuna As Long
Dim i As Integer
UltLinha = 10
UltColuna = 4
For i = 3 To UltLinha Step 2
Range(Cells(i, 1), Cells(i, UltColuna)).Interior.Color = RGB(200, 200, 200)
Next i
End Sub
SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.
Excel ® é uma marca registrada da Microsoft Corporation.
© 2025 SuperExcelVBA | SOBRE
