Excel VBA 質問スレ Part65

[275 デフォルトの名無しさん (ﾜｯﾁｮｲ 43ce-AglQ) 2020/04/13(月) 14:19:37.44 ID:V+m1zN0B0]

>>274
Dim a As Long
For a = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
　　If 0.05 <= Cells(a, 19) And Cells(a, 19) <= 0.98 Then
　　　　Rows(a).Delete
　　End If
Next