EXECL删除包含指定值的行

   Dim i
   For i = 30 To 3 Step -1
      If Range("J" & i) <= 3 and Range("J" & i) <> "" Then
         Rows(i & ":" & i).Delete Shift:=xlUp
      End If
   Next i