VBA如果值小於指定值，則刪除整行-刪除錯誤的行

Question

我試圖運行一個小的宏來搜索工作表的S列，如果S列中的值<0.501，它將刪除該行。

我目前正在運行的代碼刪除了一些行，但似乎是隨機執行的，而不是基於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