VBA宏需求：删除Excel表格首尾指定行（含合并行）

原代码问题分析 #

你当前的宏删除前2行是正常的，但后续的Selection.End(xlDown).Delete逻辑错误：删除前2行后，Selection指向的是原第3行（新第1行）开始的区域，End(xlDown)会定位到有效数据的最后一行，直接删除这一行就会误删有用数据，而不是目标的“数据最后一行之后的2个合并行”。

修正后的VBA代码 #

Sub NTWpenPOReport()
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    ' 删除前2行（无需选中，直接操作更高效）
    Rows("1:2").Delete Shift:=xlUp
    
    ' 找到有效数据的最后一行（以A列为例，若数据在其他列可修改列标识）
    Dim lastDataRow As Long
    lastDataRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 删除数据最后一行之后的2行（即合并行所在行）
    Rows(lastDataRow + 1 & ":" & lastDataRow + 2).Delete Shift:=xlUp
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

关键说明 #

• 找有效数据最后一行时，Cells(Rows.Count, "A").End(xlUp).Row是通过A列的最后一个非空单元格定位，如果你的数据核心列不是A，把代码里的"A"改成对应列的字母（比如"B"）即可。
• 直接操作行对象（无需Select和Selection）不仅更高效，还能避免选区变化导致的逻辑错误。
• 最后恢复ScreenUpdating为True，避免Excel界面卡顿。

内容的提问来源于stack exchange，提问作者LBroussard