如果值小于指定值，VBA 删除整行 - 删除错误的行

Question

我正在尝试运行一个小宏来搜索工作表的 S 列，如果 S 列中的值

我目前正在运行的代码删除了一些行，但似乎是随机删除的，而不是基于 s 中的单元格值。谁能看到我的错误来自哪里？

Sub sort_delete_500cust()

         Dim WS_Count As Integer
         Dim I, K As Integer
         Dim endrow As Long

         ' Set WS_Count equal to the number of worksheets in the active
         ' workbook.
         WS_Count = Workbooks("Standard.xlsx").Worksheets.count

         ' Begin the loop.
         For I = 1 To WS_Count

            With Worksheets(I)

                endrow = .Range("a" & .Rows.count).End(xlUp).row ' only works if cells are unmerged
                Range("A2:v2" & endrow).Sort _
                Key1:=Range("s2"), Order1:=xlDescending 'key is the sort by column

                                For K = 2 To endrow

                        If .Cells(K, 19).Value < 0.501 Then
                        .Range("S" & K).EntireRow.Delete

                        End If

                    Next K

            End With

         Next I

      End Sub

干杯！

Answer 1

您需要以相反的顺序遍历您的 K 循环。否则，行将在您删除时被跳过，因为它们被删除操作向上移动，并且您的 K 值在它们之上递增。

For K = endrow To 2 Step -1
    If CDec(.Cells(K, 19).Value) < CDec(0.501) Then
        .Range("S" & K).EntireRow.Delete
    End If
Next