今日の前日のローの削除 -

Question

私は次のことに苦労しています。日付（列C）が今日よりも前の行を削除したいと思います。私のコードは、（ウェブに応じて）動作するはずですが、それはしない、しかも、それはここで...超スローのITの一部です：

For i = 2 To LastRow  
    If Cells(i, "C").Value < Date Then Rows(i).EntireRow.Delete  
Next i 

の代わりに「C」を入れて、私は3を置くことができますが、何も変わらない私はEnd If（次のiの前）を追加しようとしましたが、明らかに必要ではありません。おそらく、日付が適切な形式ではありません。

このコードの何が問題なのですか？あなたの助けのための

大感謝:)

Answer 1

あなたは行を削除する際に後方ステップと、それは実際に細胞内の日付であることを確認したくなるでしょう。それが何をしているのかを見るには、最初の行にブレークポイントを設定し、F8キーを押します。また、LastRowの値が正しい値に設定されていることを確認します。

For i = LastRow To 2 Step -1 
    If IsDate(Cells(i, "C").Value) then 
     If Cells(i, "C").Value < Date Then Rows(i).EntireRow.Delete 
    End If 
Next i 

Answer 2

Excelの自動フィルタ機能を使用してください。一致する行を削除するために、あなたの基準によって範囲をフィルタ：

With Range("C1:C" & lastrow) 
    .AutoFilter 1, "<" & CLng(Date) 
    .Offset(1).EntireRow.Delete 
    .AutoFilter 
    End With