删除具有特定值的单元格的行

Sub workbook() Dim LR As Long, i As Long LR = Range("E:F" & rows.Count).End(xlUp).Row For i = LR To 1 Step -1 If (Range("E:F" & i).value < 400) Then rows(i).Delete Next i End Sub 

我想删除我的Excel工作表上的值小于400列E和F中的行。

但是，在一次select两列（没有特定范围，如E1：F10）时，Range函数似乎不起作用。

我究竟做错了什么？

Answer 1

如果要删除列“E”或“F”中值大于400的行，应该尝试如下所示：

 Sub workbook() Dim LR As Long, i As Long LR = Range("E" & rows.Count).End(xlUp).Row For i = LR To 1 Step -1 If Range("E" & i).value < 400 or Range("F" & i).value < 400 Then rows(i).Delete End If Next i End Sub 

如果您需要两列的值都大于400，则replace为or 。

Answer 2

 Sub workbook() Dim LR As Long, i As Long LR = ActiveSheet.Cells(ActiveSheet.Rows.Count, "E").End(xlUp).Row For i = LR To 1 Step -1 If Range("E" & i).Value < 400 And Range("F" & i).Value < 400 Then Rows(i).Delete Next i End Sub