|
A B C D
6 項目1 項目2 項目3 項目4
7 0.04 0.04 0.04 0.07
8 0.05 0.05 0.05 0.09
9 0.04 0.04 0.04 0.01
10 0.05 0.05 0.05 0.02
11 0.06 0.01 0.06 0.01
12 0.04 0.04 0.04 0.07
13 0.05 0.05 0.05 0.09
14 0.04 0.03 0.04 0.01
15 0.05 0.05 0.05 0.02
16 0.04 0.01 0.04 0.01
上の表で
項目4で0.02以下の数字で、且つ
項目2で0.03以下の数字の列を削除を
AutoFilterで検索させようとコードを過去のサンプルなど見ながら
作成したのですが、一回目の動作は正しく動作するのですが、
更に動作させると、エラーになります。
エラーを逃れるためOnErrorResumeで対応したのですが、どんどん
検索対象に合致していない行が下から削除されてしまいます。
解決策を教えてください。
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
Rows("7:" & Myrow).Delete Shift:=xlUp
End If
.AutoFilter
End With
'On Error GoTo 0
|
|