ループ内に文字列を含むVBAセル

Question

私はまだVBAで非常に初心者であり、すべての構文を理解する上で問題があります。私は列をループし、部分文字列が含まれているかどうかを確認しようとしています。もしそうでなければ、行を削除する必要があります。これまでのところ、私はこれを持っています：

Private Sub CommandButton1_Click() 

Dim count As Integer 

Do While Range("H" & count).Value > 0 
    Dim exists As Integer 
    exists = InStr(1, Range("H" & count).Value, ".AB", vbTextCompare) 

    If exists > 0 Then 
     Rows(count).Delete 
    Else 
     count = count + 1 
    End If 
Loop 

End Sub 

しかし、このコードを使用すると、私はあらゆる種類のエラーが発生します。最初に "オブジェクト '_worksheet'の 'Method' Range 'が失敗しました。それについての知識はありますか？

Answer 1

Plsのは、それが0 `H0`が有効なセルでないに等しいので、あなたは開始時に何もして` count`を初期化していなかった以下のコード

Private Sub CommandButton1_Click() 
    Dim exists As Integer 
    Dim count As Integer 
    lastrow = Range("H" & Rows.count).End(xlUp).Row 
    For i = 2 To lastrow 
     If InStr(UCase(Range("H" & i).Value), ".AB") > 0 Then 
      Rows(i).Delete 
      lastrow = lastrow - 1 
     End If 
    Next i 
End Sub