Excel総合相談所 136

[0935 名無しさん＠そうだ選挙にいこう 2019/10/03(木) 19:40:50.85]

>>932
オートフィルターに頼らない方が良い
あれは微妙に挙動がややこしい

Sub Macro1()
For i = Cells(Rows.Count, 7).End(xlUp).Row To 2 Step -1
If Cells(i, 7).Value = 1000 Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next
End Sub