Vba 根据3个单元格的值删除行
我是VBA的新手,所以我尝试做的几乎是不可能的 我有一张excel表格,有三列显示碳粉剩余的百分比Vba 根据3个单元格的值删除行,vba,excel,Vba,Excel,我是VBA的新手,所以我尝试做的几乎是不可能的 我有一张excel表格,有三列显示碳粉剩余的百分比 Black Cyan Magenta Yellow 6 45 67 100 93 93 5 19 20 40 65 57 我想知道是否可以创建一个宏来查看每行的所有三列,如果所有的值都大于10,则删除该行,如果这三个值中有任何一个小于10,则保留该行并移动到下一行 在这种情况下,第2行和第3行
Black Cyan Magenta Yellow
6 45 67 100
93 93 5 19
20 40 65 57
我想知道是否可以创建一个宏来查看每行的所有三列,如果所有的值都大于10,则删除该行,如果这三个值中有任何一个小于10,则保留该行并移动到下一行
在这种情况下,第2行和第3行将被保留,因为值低于10,但第4行将被删除。到目前为止您尝试了什么?请提供您一直试图使用的有问题的VBA代码以及中所述的当前结果/问题。如果您只是想找一个开始的地方,你会想试试@tigeravatar,我的其他代码已经编译好了,这是我想添加的东西,但我不知道该从哪里开始。这就是不提供代码的原因。我目前正在查看您提供的链接。@Jerry我还没有创建代码,因为我不知道如何启动它。我想知道是否有可能采取这样的行动。目前我正在查看上面提供的“如果”链接。这几乎奏效了。我不知道“And”可以用来保持“If”的状态。但是,脚本也考虑小于10的空格。我会继续努力,在我这一方面找出答案。非常感谢!很抱歉给你添麻烦。
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