刪除包含2列包含特定數據的行

Question

我有一個Excel文件，其中包含一張包含以下數據的工作表：

      A    |     B      |     C    |       D
________________________________________________
    321        2016/12/01    0           0
    123        2016/12/03    23          0
    1321       2016/12/05    12          1
    2315       2015/12/03    0           0
    23154      2015/12/03    0           0

如果C AND D的值為0，我確實要刪除所有行。如何實現呢？

Answer 1

考慮：

Sub RowKiller213()
    Dim i As Long, N As Long

    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = N To 1 Step -1
        If Cells(i, "C").Value = 0 And Cells(i, "D").Value = 0 Then
            Cells(i, "C").EntireRow.Delete
        End If
    Next i
End Sub

注意：

• 循環自下而上

Answer 2

確保您具有第一行作為標題一，然后使用此命令：

Sub Main()
    With Worksheets("mySheetName")
        With .Range("D1", .Cells(.Rows.Count, 1).End(xlUp))
            .AutoFilter field:=3, Criteria1:=0
            .AutoFilter field:=4, Criteria1:=0
            If Application.WorksheetFunction.Subtotal(103, .Resize(, 1)) > 1 Then .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        End With
        .AutoFilterMode = False
    End With
End Sub

Answer 3

簡短的谷歌搜索為我提供了多種方法：

https://www.extendoffice.com/documents/excel/815-excel-remove-rows-based-on-cell-value.html

Answer 4

將過濾器應用於值0的列C和D，並刪除顯示的行。