|
オートフィルターではありませんが、作業列(AA列)を使って
Sub test()
With Sheets("Sheet3").Range(Cells(6, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 26)
.Formula = "=if(and(B6<=0.03,D6<=0.02),1,"""")"
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
On Error GoTo 0
.ClearContents
End With
End Sub
こんなのでもいいかも?
オートフィルターの場合は、
>Sheets("sheet3").Activate
>'On Error Resume Next
>With Rows("6:6")
> .AutoFilter
> .AutoFilter field:=4, Criteria1:="<=0.02"
> .AutoFilter field:=2, Criteria1:="<=0.03"
> Myrow = Range("D65536").End(xlUp).Row
> If Myrow > 1 Then
If Myrow > 6 Then
では、ないですか?
> Rows("7:" & Myrow).Delete Shift:=xlUp
> End If
> .AutoFilter
>End With
>'On Error GoTo 0
|
|