求助：删除工作簿中第二行至第六行

蓝野娉婷

需求：删除工作簿中所有工作表的第二行至第六行，求大神帮忙写个代码。


搜到的这个代码，总是提示错误，自己不会调整。


Sub DeleteRows2To6InAllSheets()
    Dim ws As Worksheet
    Dim firstRowToDelete As Integer
    Dim lastRowToDelete As Integer
   
    ' 设置要删除的行范围
    firstRowToDelete = 2
    lastRowToDelete = 6
   
    ' 禁用屏幕更新和警告信息以加快执行速度
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    ' 遍历所有工作表并删除指定行
    For Each ws In ThisWorkbook.Sheets
        ' 检查行范围是否有效（尽管在这个特定情况下，我们假设总是有效的）
        If firstRowToDelete <= ws.Rows.Count And lastRowToDelete <= ws.Rows.Count Then
            ' 删除行，注意这里要从最后一行开始删，否则会影响行号
            For i = lastRowToDelete To firstRowToDelete Step -1
                ws.Rows(i).Delete
            Next i
        End If
    Next ws
   
    ' 重新启用屏幕更新和警告信息
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   
    MsgBox "所有工作表中的第 " & firstRowToDelete & " 行至第 " & lastRowToDelete & " 行已成功删除。", vbInformation
End Sub

Peny2020

那你得告诉人，错误显示的是哪一行啊

删除指定列，直接rows("2:6").delete就可以了
你这个代码是本工作簿执行，你是不是要执行的是其它工作簿啊？