excel - 比较 Excel 单列中价格列表中的数字 - 并发现数字何时较低而不是较高

Question

我用谷歌搜索了这个，只发现了两列的比较，但不是我特别需要的。我希望有人能帮帮忙。

我在电子表格中有一个包含 55,000 种产品的列表，因此我无法手动查看它。:)

每个产品有 5 行，由一个空白行分隔，如下所示。

我需要的是找到每个产品中第二行低于第一行的位置，并用颜色识别它，然后纠正，使其比第一行多 50。

产品名称 价格

• 啊啊啊啊100
• 啊啊啊150
• 啊啊啊200
• 啊啊啊250
• 啊啊啊50
• 空白行
• bbbbbb 100
• bbbbbb 150
• bbbbbb 200
• bbbbbb 250
• bbbbbb 50
• 空白行
• cccccc 100
• cccccc 150
• cccccc 200
• cccccc 250
• cccccc 50

有没有相对简单的方法来做到这一点？似乎应该有，但我对 Excel 没有那么丰富的经验。

谢谢！

标签： excelvbaexcel-formula

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

前：

后：