VBA：如果单元格包含文本，则删除目标行？

我有一个像这样的电子表格：

列Y删除删除删除删除

我希望用户能够通过单击每个删除文本来删除每一行。 这应该只删除用户点击删除的行，也就是目标行。

这是我的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 25 And Target.Value = "Remove" Then Range("A" & ActiveCell.Row).EntireRow.Delete End If End Sub 

由于某种原因，这什么都不做。

我也想添加一个条件，只从第17行开始删除这些行。

请有人能告诉我如何正确地工作？ 谢谢

Answer 1

尝试这个

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If .Column = 25 And .Row > 16 And .value = "Remove" Then .EntireRow.Delete End With End Sub 

Answer 2

对我来说，它与Workbook_SheetSelectionChange事件。

尝试这个：

 Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Target.Column = 25 And Target.Value = "Remove" Then Range("A" & ActiveCell.Row).EntireRow.Delete End If End Sub 

您也可以通过运行来validation是否启用了事件：

 Sub EnableEvents() Application.EnableEvents = True End Sub