能否修改指定Worksheet_Change代码，实现Target为"N"时删除对应行？

以下是添加了"N"值时删除对应行功能的完整代码：

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 2024/XX/XX （可自行修改日期）
    ' 处理多单元格修改或空值情况，直接退出
    If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
    ' 仅处理第31列的修改
    If Target.Column = 31 Then
        Dim sourceRow As Long
        sourceRow = Target.Row
        Dim openSheet As Worksheet
        Set openSheet = ThisWorkbook.Sheets("Open")
        
        ' 关闭事件触发，避免操作时重复触发Worksheet_Change
        Application.EnableEvents = False
        
        Select Case UCase(Target.Value)
            Case "Y"
                ' 将当前行复制到Open表末尾
                Dim lastRow As Long
                lastRow = openSheet.Cells(openSheet.Rows.Count, 10).End(xlUp).Row + 1
                Me.Rows(sourceRow).Copy openSheet.Rows(lastRow)
            Case "N"
                ' 在Open表中查找对应行并删除（这里假设第1列为唯一标识列，可根据实际调整）
                Dim foundRow As Range
                Set foundRow = openSheet.Columns(1).Find(What:=Me.Cells(sourceRow, 1).Value, _
                                                        LookIn:=xlValues, LookAt:=xlWhole)
                If Not foundRow Is Nothing Then
                    openSheet.Rows(foundRow.Row).Delete
                End If
        End Select
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键修改说明 #

• 增加Select Case分支，分别处理"Y"和"N"的情况，同时用UCase兼容大小写输入（比如输入"y"或"n"也能触发）
• 添加Application.EnableEvents = False/True，防止删除行时重复触发Worksheet_Change事件导致死循环
• 查找对应行时默认以原工作表第1列的值作为匹配依据（整行匹配效率低且易出错），如果你的数据有其他唯一标识列，可修改代码中Columns(1)和Me.Cells(sourceRow, 1)的列号
• 将工作表对象赋值给变量openSheet，让代码更简洁易维护
• 把原代码中Lastrow的定义移到"Y"分支内，避免不必要的计算

注意事项 #

• 确保"Open"工作表存在，否则会报错
• 如果原行第1列的值不是唯一的，Find方法只会找到第一个匹配的行，若需要删除所有匹配行，可改用循环查找的方式
• 测试前建议备份数据，避免误删

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