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

Question

这是我的代码。问题是它删除了第一行。我想排除第一行（标题）。因为i行被删除了重复的标题

[代码]昏暗FIRSTROW只要 昏暗LASTROW只要 昏暗Lrow只要 昏暗CALCMODE只要 昏暗VIEWMODE只要

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