Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29978 / 76732

←次へ　｜　前へ→


	【52027】Re:AutoFilterについて

ponpon - 07/10/16(火) 21:29 -


	引用なし

	パスワード

オートフィルターではありませんが、作業列（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

2 hits

▼

【52024】AutoFilterについて Sati 07/10/16(火) 20:29