Question

从我在countif函数的其他相关问题中看到的，我不明白为什么我的代码不起作用。

我有一个字段，我已经识别了要删除的行以包含值＆＃34; GO AWAY＆＃34;。以下是我用来使它们消失的代码。 DF是我当前的工作表，由“设置DF = CWB.Worksheets”（＆＃34;删除＆＃34;）＆＃39;定义。和＆＃39;设置CWB = ThisWorkbook＆＃39;。

Dim iVal As Integer
Dim LastRow2 As Long
Dim ii As Integer    

Do While (iVal > 0)
        LastRow2 = DF.Cells(DF.Rows.Count, 1).End(xlUp).Row
        iVal = DF.Application.WorksheetFunction.CountIf(DF.Range("d:d"), "GO AWAY")

        For ii = 2 To LastRow2
            If DF.Cells(ii, 4).Value = "GO AWAY" Then
                Rows(ii).EntireRow.Select
                DF.Cells.EntireRow.Select  'Caution to testers.  This line and the next will delete the entire worksheet.
                Selection.Delete Shift:=xlUp   'Caution to testers.  This line and the previous will delete the entire worksheet.
            End If
        Next ii
    Loop

如果我在随机单元格中使用公式：

=CountIf(D:D, "GO AWAY")

返回128。

Answer 1

@DavidCampbell因为未定义ival变量，所以在某些情况下默认为null或零。这满足了你结束Do While (ival > 0)的条件。由于ival小于0，因此结束了整个Do循环。

删除行的代码更简单：

    LastRow2 = DF.Cells(DF.Rows.Count, 1).End(xlUp).Row
    For ii = LastRow2 To 2 Step -1
        If DF.Cells(ii, 4).Value = "GO AWAY" Then
            Rows(ii).EntireRow.Delete xlShiftUp
        End If
    Next ii

在Excel中使用Countif删除行

1 个答案: