Excel删除行（如果选定的单元格在范围内）

Question

用途：我有一个零件列表，每个工作都有变化。

我的每个part#都有3行，这就是为什么我运行“entirerow.delete”3次。

这就是我现在拥有的。

Sub DeleteRow()
    If MsgBox("Are you sure you want to delete this part?" & vbNewLine & " " & vbNewLine & ActiveCell.Value & vbNewLine & ActiveCell.Offset(0, 1).Value & vbNewLine & "QTY: " & ActiveCell.Offset(0, 12).Value, vbYesNo) = vbNo Then Exit Sub
    If ActiveCell.Row > 8 Then
    Rows(ActiveCell.Row).EntireRow.Delete
    Rows(ActiveCell.Row).EntireRow.Delete
    Rows(ActiveCell.Row).EntireRow.Delete
    End If
End Sub

Answer 1

在@yowe3k的评论下，也许我在你的帖子中遗漏了什么，但我认为它应该像下面的代码一样简短。

Insead的退出sub如果用户选择“no”，只需删除行如果他选择“yes”。

Sub DeleteRow()

    If ActiveCell.Row > 8 Then ' <-- first check if not above row 8 (headers)
       If MsgBox("Are you sure you want to delete this part?" & vbNewLine & " " & _
            vbNewLine & ActiveCell.value & vbNewLine & ActiveCell.Offset(0, 1).value _
            & vbNewLine & "QTY: " & ActiveCell.Offset(0, 12).value, vbYesNo) = vbYes Then

            ActiveCell.Resize(3, 1).EntireRow.Delete
        End If           
    End If

End Sub