макрос текст по столбцам

Ответ от
В приведенном Вами примере расход топлива на 100 км пути во всех случаях равен 10 л. На скриншоте результат работы макроса по заполнению третьего столбца. Листинг макроса приведен ниже:
Sub FormatData()
Dim sum_pr, sum_ras, ras100 As Single
Dim i As Integer
sum_pr = 0
sum_ras = 0
For i = 2 To 6
sum_pr = sum_pr + Cells(i, 1)
sum_ras = sum_ras + Cells(i, 2)
Next i
ras100 = sum_ras / sum_pr * 100
For i = 2 To 6
If Cells(i, 2) / Cells(i, 1) * 100 > ras100 Then
Cells(i, 3) = "Больше"
ElseIf Cells(i, 2) / Cells(i, 1) * 100 < ras100 Then
Cells(i, 3) = "Меньше"
Else
Cells(i, 3) = "Равно"
End If
Next i
End Sub