根據相鄰單元格值刪除行-VBA

Question

我在這段代碼上遇到麻煩，無法刪除不代表實際最小值的行。 它根本行不通，我已經手工驗證了邏輯。 我要檢查的是，第1行，第2列中的單元格的值是否大於第2行，第2列。如果是這種情況，請完全刪除第1行。 我發現了一些示例，它們的循環與此類似，但它們查找某個字符串值，而不是將單元格值與邏輯語句進行比較。 我已經進行了檢查，以確保它引用了正確的工作表，並且我了解刪除功能的工作原理。 我還用LRow + 1而不是LRow - 1測試了代碼。 我究竟做錯了什么？

Sub rowdelete()
Dim LRow As Long
With Worksheets("WWOutput")
        For LRow = Cells(Rows.Count, 2).End(xlUp) To Cells(7, 2) Step -1
            If Cells(LRow, 2) > Cells(LRow - 1, 2) And Cells(LRow, 2) < 10000 Then
        Rows(LRow).EntireRow.Delete
    End If
 Next LRow
End With
End Sub

這是一些示例數據。

11804.6875
6415.625095
6333.593845
3786.718845
11841.40682

在這種情況下，我只想保留數據

11804.6875
3786.718845
11841.40682

提前謝謝你！

Answer 1

就像他們說的...

Sub rowdelete()
    Dim LRow As Long
    With Worksheets("Sheet1")
        For LRow = .Cells(Rows.Count, 2).End(xlUp).Row To Cells(7, 2).Row Step -1
            If .Cells(LRow, 2) > .Cells(LRow - 1, 2) And (.Cells(LRow, 2) < 10000) Then
                .Rows(LRow).EntireRow.Delete
            End If
        Next LRow
    End With
End Sub