嘿，这个需求很合理！你的原代码逻辑没问题，但确实缺少了保护表头及上方行的判断逻辑——多次点击后，当最后一行跑到表头行（第6行）甚至更上面时，就会误删关键内容。我给你两种优化方案，按需选择：

方案1：基于固定表头行的判断（适合普通区域表格） #

直接在删除前加一个判断，确保要删除的行是表头（第6行）下方的数据行：

Sub DeleteRow()
    Dim LastRow As Long ' 改用Long避免行数超过Integer上限（32767）
    Dim ws As Worksheet
    Set ws = Worksheets("MTO")
    
    ' 获取J列最后一个非空行的行号
    LastRow = ws.Range("J" & ws.Rows.Count).End(xlUp).Row
    
    ' 判断：只有当最后一行大于表头行（第6行）时才执行删除
    If LastRow > 6 Then
        ws.Rows(LastRow).Delete Shift:=xlUp
    Else
        ' 弹出提示，告诉用户不能再删了
        MsgBox "已到达表头行，无法继续删除！", vbInformation, "提示"
    End If
End Sub

关键优化点： #

• 把Integer换成Long：Excel的行数最多能到1048576，远超Integer的最大值32767，用Long更安全。
• 增加If LastRow > 6判断：确保只删除第7行及以下的数据行，表头（第6行）和上方的行永远不会被碰。
• 加入提示弹窗：当用户点到不能删的时候，友好告知原因，避免困惑。

方案2：用Excel正式表格（ListObject）操作（更推荐） #

如果你的数据区域是Excel的正式表格（插入→表格），用ListObject来操作会更智能，它会自动识别表头和数据行，根本不用担心误删表头：

Sub DeleteTableLastRow()
    Dim tbl As ListObject
    Set tbl = Worksheets("MTO").ListObjects("你的表格名称") ' 替换成你的表格实际名称
    
    ' 判断表格是否有数据行（排除表头）
    If tbl.ListRows.Count > 0 Then
        tbl.ListRows(tbl.ListRows.Count).Delete
    Else
        MsgBox "表格已无数据行可删除！", vbInformation, "提示"
    End If
End Sub

为什么推荐这个方案？ #

• 不用手动指定表头行号，表格会自动管理表头和数据的边界。
• 即使你以后调整表头位置，代码也不需要修改，适应性更强。

你可以根据自己的实际表格类型选择方案，第一种适合普通单元格区域，第二种适合Excel官方表格~

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