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

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