vba - 根据 3 个单元格的值删除行

Question

我对 VBA 相当陌生，所以我想做的事情几乎是不可能的。

我有一个 Excel 表，其中三列显示剩余碳粉的百分比。

Black   Cyan    Magenta Yellow
6       45      67      100
93      93      5       19
20      40      65      57

我想知道是否可以创建一个宏来查看每行的所有三列，如果所有值都高于 10，则删除该行，如果 3 个值中的任何一个低于 10 以保留该行并继续到下一个。

在这种情况下，将保留第 2 行和第 3 行，因为值低于 10，但第 4 行将被删除。

标签： vbaexcel

Answer 1

For i = Sheet.Cells(Rows.Count, "A").End(xlUp).Row to 2 Step -1
    If Cells(i, Column1).Value2 > 10 And Cells(i, Column2).Value2 > 10 And Cells(i, Column3).Value2 > 10 Then
        Rows(i).Delete
    End If
Next i