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

我应该使用什么macros来定位以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 

我应该在macros＃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