Excel総合相談所 136

[0938 名無しさん＠そうだ選挙にいこう 2019/10/03(木) 21:13:57.93]

遅いなら配列に入れるとか。

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