Сравните числа в списке цен в одном столбце в Excel - и найдите, когда числа меньше, а не выше

Question

Я гуглил это и нашел только сравнения 2 столбцов, но не то, что мне нужно конкретно. Я надеюсь, что кто-то может помочь.

У меня есть список из 55 000 продуктов в электронной таблице, поэтому это не позволяет мне просматривать его вручную. :)

Для каждого продукта есть 5 строк, разделенных пустой строкой, как показано ниже.

Мне нужно найти место, где вторая строка в каждом продукте ниже, чем 1-й ряд и, возможно, определите его цветом, а затем исправьте и сделайте его на 50 больше, чем 1-й ряд.

ProductName Цена

• aaaaaaa 100
• aaaaaaa 150
• ааааааа 200
• ааааааа 250
• ааааааа 50
• пустой ряд
• bbbbbbb 100
• bbbbbbb 150
• bbbbbbb 200
• bbbbbbb 250
• bbbbbbb 50
• пустой ряд
• ccccccc 100
• ccccccc 150
• ccccccc 200
• ccccccc 250
• ccccccc 50

Существует ли относительно простой способ сделать это? Кажется, что должно быть, но я не настолько опытен с Excel.

Спасибо!

Answer 1

Если я правильно интерпретировал ваш запрос, он будет выполнять то, что вы описали.

Sub ReverseLoop()
Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow

    If Cells(i, 1).Value = Cells(i - 1, 1).Value And Cells(i + 1, 1).Value <> "" Then
    Debug.Print Cells(i, 1).Value
    Debug.Print Cells(i, 2).Value
        If Cells(i, 2).Value < Cells(i - 1, 2).Value Then
            Cells(i, 2).Interior.ColorIndex = 6
        End If
    End If

Next i

End Sub

До:

После :