Question

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工作表中值E小于400的E和F列中的行。

但是，一次选择两列时，范围功能似乎不起作用（没有特定范围，如E1：F10）。

我做错了什么？

Answer 1

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

Answer 2

如果要在“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，请将or替换为and。

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

2 个答案: