Использование двойного цикла for to next

Использование двойного цикла в VBA аналогично использованию его в ООО. Отличие лишь в том что объект Cell в OOO и Cell в VBA определяют столбец и строку наоборот (но вы это уже должны были заметить). Т.е. вместо .getcellbyposition(6,i).Value будет Cell(i,6).Value. Рассмотрим пример по применению заливки к ячейкам в зависимости от условий, который мы рассматривали в блоге OOO.

Sub Cveta()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = LastRow To 2 Step -1
    For j = 0 To 6
    text1 = Cells(i, 6).Value
    If text1 < -5000 Then
    Cells(i, j).Interior.Color = vbYellow
        ElseIf text1 > 5000 Then
        Cells(i, j).Interior.Color = vbRed
       End If
       End If
   Next i
   Next j
   End Sub

End Sub