【VBA】各シートの不要行削除

Sub 各シートの不要行削除()

Dim i As Long '変数宣言

Application.ScreenUpdating = False '画面止める処理

For i = Sheets("Sheet1").UsedRange.Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 '削除対象シートの下から削除

If Sheets("Sheet1").UsedRange.Range("A" & i).Value > Sheets("作成").Range("C2") Then 'C2以降の日付の場合

Sheets("Sheet1").UsedRange.Rows(i).Delete '対象行は削除

End If

Next i

Application.ScreenUpdating = True '画面止める処理解除

End Sub