ループ用のVBAで空白セルをスキップ

Question

こんにちは、これは私の初めての質問です。ここはほとんどの場合かなり基本的ですが、マクロを初めてコーディングするときです。私は、データ値の広範なリストをExcelに広げることに取り組んでおり、特定の金額ですべての行を削除する必要があります。この部分は完全に動作しています。しかし、私は空白のセルを持っているヘッダーが削除され続けるグループ分けを分離するのと同じ行にある私はこれらを保持する必要があります。 forループで空のセルをスキップする方法はありますか？ここで

は私のコードです：

Private Sub CommandButton1_Click() 

    Dim LastRow As Long, n As Long 

    For n = 1000 To 1 Step -1 

     If Cells(n, 9).Value < 1.01 Then Cells(n, 9).EntireRow.Delete 

    Next n 

End Sub 

Answer 1

は、セルが空白でないことを確認するために、あなたのif文で条件を追加します。このように：

If Len(Cells(n,9)) and Cells(n, 9).Value < 1.01 Then Cells(n, 9).EntireRow.Delete 

Answer 2

検討：

Private Sub CommandButton1_Click() 

    Dim LastRow As Long, n As Long 

    For n = 1000 To 1 Step -1 

     If Cells(n, 9).Value < 1.01 And Cells(n, 9).Value <> "" Then Cells(n, 9).EntireRow.Delete 

    Next n 

End Sub