日付として書式設定されていない行を削除します

Question

私の列には、書式設定された日付と一般的な書式で構成されるセルがあります。私は日付ではない行を削除したい、私はこのコードを作ったが、私はそれが日付ではないすべての行を削除するためにそれを得るためにそれを複数回実行する必要があります。

コード：事前に

Sub del_row_not_date() 

Dim rng_A_last As Long 
Dim i As Integer 

rng_A_last = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row 
Debug.Print rng_A_last 

For i = 1 To rng_A_last Step 1 
    If IsDate(Sheet1.Cells(i, 1)) = False Then 
     Sheet1.Cells(i, 1).EntireRow.Delete 
    End If 
Next 
End Sub 

ありがとう！

Answer 1

行は

となりますので、これに基づいてLINKが見つかりましたこれは：

ヒント条件に基づいて行を削除するヒント行を削除するたびに、行がすぐに行が削除された行の2行下のセルに効果的に移動します削除された行の下に移動します（つまり、それは全くテストされていません）。

これは動作します:)

Sub del_row_not_date() 

Dim rng_A_last As Long 
Dim i As Integer 

rng_A_last = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row 
Debug.Print rng_A_last 

For i = rng_A_last To 1 Step -1 
    'Debug.Print Cells(i, 1).Value 
    If IsDate(Sheet1.Cells(i, 1)) = False Then 
     Sheet1.Cells(i, 1).EntireRow.Delete 
    End If 
Next 
End Sub 

Answer 2

あなたが使用した後の日付ではありません数字で細胞を持っている場合は、上記のすべての列「」ではない、数字のセル、行全体

を削除するもの

Sub del_row_not_date() 
    With Sheet1 
     .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete 
    End With 
End Sub 

を試みることができる：

Option Explicit 

Sub del_row_not_date() 
    Dim i As Integer 

    With Sheet1 
     For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1 '<--| loop backwards not to loose next row index after deleting the current one 
      If Not IsDate(.Cells(i, 1)) Then .Cells(i, 1).EntireRow.Delete 
     Next i 
    End With 
End Sub