オートフィルタを使わずに行削除

質問

こんにちは。
簡易記録のマクロで実行したものが、以下となります。

オートフィルタで選択した0以下の行を削除するために選択した物になります。

Sub 0以下を削除()
' Macro test
'
ActiveSheet.Range("$A$1:$G$165").AutoFilter Field:=7, Criteria1:="<=0", _
Operator:=xlAnd
Rows("3:56").Select
ActiveWindow.SmallScroll Down:=66
Rows("3:165").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$G$123").AutoFilter Field:=7
End Sub

行数は、日によって、様々で何千行となる場合もあります。
そこで、オートフィルタを使用せず、G列目の0以下の数値を行削除を行いたいです。
どのように設定したらいいか教えて頂けると幸いです。

不備がありましたら、補足を入れますので、
お手数ではございますが、宜しくお願い致します。

回答No.1

kkkkkm · ベストアンサー

以下でいかがですか

Sub Example()
Dim i As Long

Application.ScreenUpdating = False
Sheets("Sheet1").Activate '実際のシート名に変更してください。
For i = Cells(Rows.Count, "G").End(xlUp).Row To 1 Step -1
If Cells(i, "G") <= 0 Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub

お礼

ありがとうございます。
まさしく、こちらでした。誰にも聞けず、困っておりましたので、
本当に助かりました。ありがとうございます。
また何か有りましたら、ご教授下さい。