删除所有具有特定文本和范围的行

Question

到目前为止，这是我的代码。 问题是它删除了第一行。 我想排除第一行（标题）。 因为我要删除的行是重复的标题

[代码] Dim Firstrow与Long Dim Lastrow与Long Dim Lrow与Long Dim CalcMode与Long Dim ViewMode与Long

With Application
    CalcMode = .Calculation
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
End With


With ActiveSheet.Select


    ViewMode = ActiveWindow.View
    ActiveWindow.View = xlNormalView


    .DisplayPageBreaks = False


    Firstrow = .UsedRange.Cells(2).Row
    Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row


    For Lrow = Lastrow To Firstrow Step -2


        With .Cells(Lrow, "D")

            If Not IsError(.Value) Then

                If .Value = "Service Tower" Then .EntireRow.Delete

            End If

        End With

    Next Lrow

End With

ActiveWindow.View = ViewMode
With Application
    .ScreenUpdating = True
    .Calculation = CalcMode
End With [code]

Answer 1

.UsedRange.Cells(2)

是UsedRange第一行中的第二个单元格。 单元格从左到右然后从上到下计数（即“行大”而不是“列大”）

你要

Firstrow = .UsedRange.Rows(2).Row