Excel 删除包含数据的行

我有以下代码，需要删除A列中包含信息的数据行。这些行是“页眉”和“页脚”信息，它们使我无法访问所需的数据

我以为我有一个如下的解决方案设置，但是删除列a中的正确行似乎不起作用

代码：

Sub CleanUpFB()
    Dim Sheet4 As Worksheet
    Dim delRng As Range
    Dim LastRow As Integer, LastRow2 As Integer
    Dim i As Integer

    Set Sheet4 = Excel.Worksheets("FB Product")
    LastRow = Range("D3").End(xlDown).Row

    'Re-align Revision Column.
    Range("D3:D" & LastRow).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlToLeft

    'Delete First Row
    Sheet4.Rows(1).Delete

    'Delete Rows in Column A that contain words.
    LastRow2 = Range("A" & Rows.Count).End(xlUp).Row

    For i = 1 To LastRow2
        If InStr(1, Cells(i, 1).Value, "*", vbTextCompare) Then
            If delRng Is Nothing Then
                Set delRng = Rows(i)
            Else
                Set delRng = Union(delRng, Rows(i))
            End If
        End If
    Next i

    If Not delRng Is Nothing Then delRng.Delete
End Sub

工作表：

---

如果要删除列A中任何单元格都有值的整行：

Columns("A:A").SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete

---

范围（“B1”）。结束（xlUp）。行始终为1。您的意思是
xlDown
？我的意思是
xlDown
，并将其更改为
范围（“A”&Rows.Count）.结束（xlUp）.行
，但我仍然在删除列A中显示的字符串时遇到问题。。。我已经把上面的代码修改成我想做的，谢谢你的帮助。。。工作得很好。这比我想做的好多了。