Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/23.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 忽略IF语句中使用“的空白单元格”;及;_Excel_Vba - Fatal编程技术网

Excel 忽略IF语句中使用“的空白单元格”;及;

Excel 忽略IF语句中使用“的空白单元格”;及;,excel,vba,Excel,Vba,我目前有下面的脚本来搜索4个单元格值。它删除所有包含10以上所有值的行。然而,我正在努力添加一个嵌套的“IF”语句来忽略空格 Sub test() For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If Cells(i, "C").Value2 >= 10 And Cells(i, "D").Value2 >= 10 And Cells(i, "E").Value2 >= 10 And Cells(i,

我目前有下面的脚本来搜索4个单元格值。它删除所有包含10以上所有值的行。然而,我正在努力添加一个嵌套的“IF”语句来忽略空格

Sub test()

For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Cells(i, "C").Value2 >= 10 And Cells(i, "D").Value2 >= 10 And Cells(i, "E").Value2 >= 10 And Cells(i, "F").Value2 >= 10 Then
        Rows(i).Delete
    End If
Next i

End Sub
子测试()


因此,如果C到F中的任何单元格为空,您希望避免删除??好吧,假设其中一列为20,其他3列为空,我希望它删除该行。如果
C2
为20,
D2
为空,
E2
为5,会发生什么情况?这就意味着E2小于10。我认为最简单的方法是去空的单元格,把它们变成99(实际上任何大于10的数字)。这样,如果其他包含值且大于10的单元格将被删除。运行之后,它会将99替换为空。
Range("C:F" & LastRow).Replace "", "999", xlWhole

For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
    If Cells(i, "C").Value2 >= 10 And Cells(i, "D").Value2 >= 10 And Cells(i, "E").Value2 >= 10 And Cells(i, "F").Value2 >= 10 Then
        Rows(i).Delete
    End If
Next i

Range("C:F" & LastRow).Replace "999", "", xlWhole


End Sub