Estrutura de repetição FOR em Excel VBA

Excel 2010

Sub relatorio()

Dim vtotal As Long

Dim ltotal As Long

For contlinhas = 2 To 20

vtotal = Cells(contlinhas, 2).Value

ltotal = Cells(contlinhas, 3).Value

Cells(contlinhas, 4).Value = vtotal - ltotal

Next

For contlinhas = 2 To 20

vtotal = Cells(contlinhas, 2).Value

ltotal = Cells(contlinhas, 3).Value

Cells(contlinhas, 4).Value = vtotal - ltotal

Cells(contlinhas, 5).Value = ltotal / vtotal

Next

End Sub