如何查找以特定字母开头并删除该行的单词？

Question

应该使用什么宏来查找以D开头的所有行并删除这些行。 现在我正在使用:(删除TOTAL以上的每个文本），这并不总是完美的工作。

Sub A2a_Deleterowsabove() 
Dim foundOne As Range 
On Error Resume Next 
With ActiveSheet 
    Set foundOne = .Range("A:A").Find(what:="TOTAL", After:=.Range("a1"), LookIn:=xlFormulas, _ 
           LookAt:=xlPart, SearchOrder:=xlByRows, _ 
           SearchDirection:=xlNext, MatchCase:=False) 
    If foundOne.Row > 1 Then 
     Range(.Range("e1"), foundOne.Offset(-1, 0)).EntireRow.delete shift:=xlUp 
    Else 

End If 
End With 
End Sub 

我想用这个的：

Sub Delete_Cells_with_D() 
Dim i As Integer 
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 
If Cells(i, 1) = "D* -" Then Cells(i, 1).EntireRow.Delete shift:=xlUp 
Next i 
End Sub 

我应该把什么在宏＃2的突出部分，以表明该d后面的数字是未知的？

感谢您的帮助！

Answer 1

Sub Delete_Cells_with_D() 

    Dim i As Integer 
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 
     If Left(Cells(i, 1), 1) = "D" Then Cells(i, 1).EntireRow.Delete shift:=xlUp 
    Next i 

End Sub