Excel表格中根据下拉选项清除单元格并更新同Control#条目

针对你描述的需求，这里提供一个基于VBA Worksheet_Change事件的解决方案，可实现当Returned列从N改为Y时，自动同步同Control#所有行的Dollars清零、Returned设为Y的功能，同时兼容工作表锁定的场景。

实现步骤 #

1. 打开Excel，按下Alt+F11进入VBA编辑器
2. 在左侧「工程资源管理器」中找到包含Tbltst表格的工作表，双击进入其代码模块
3. 粘贴以下VBA代码

完整VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tbl As ListObject
    Dim controlValue As Variant
    Dim targetRow As ListRow
    Dim listRow As ListRow
    
    ' 绑定目标结构化表格
    Set tbl = Me.ListObjects("Tbltst")
    
    ' 仅处理Returned列的单个单元格修改
    If Not Intersect(Target, tbl.ListColumns("Returned").DataBodyRange) Is Nothing And Target.Count = 1 Then
        ' 验证修改是从"N"改为"Y"
        If Target.Value = "Y" And Target.Value <> Target.Value2 Then
            ' 禁用事件避免循环触发
            Application.EnableEvents = False
            
            ' 临时解锁工作表（有保护密码则替换""为你的密码）
            If Me.ProtectContents Then
                Me.Unprotect Password:=""
            End If
            
            ' 获取当前修改行的Control#值
            Set targetRow = tbl.ListRows(Target.Row - tbl.HeaderRowRange.Row)
            controlValue = targetRow.Range(tbl.ListColumns("Control#").Index).Value
            
            ' 遍历表格所有行，匹配Control#并批量修改
            For Each listRow In tbl.ListRows
                If listRow.Range(tbl.ListColumns("Control#").Index).Value = controlValue Then
                    ' 清零Dollars列
                    listRow.Range(tbl.ListColumns("Dollars").Index).Value = 0
                    ' 同步Returned为Y
                    listRow.Range(tbl.ListColumns("Returned").Index).Value = "Y"
                End If
            Next listRow
            
            ' 重新锁定工作表（有密码则替换""为你的密码）
            If Not Me.ProtectContents Then
                Me.Protect Password:="", UserInterfaceOnly:=True
            End If
            
            ' 恢复事件监听
            Application.EnableEvents = True
        End If
    End If
End Sub

关键说明 #

• 工作表锁定兼容：代码会临时解锁工作表完成修改，之后自动重新锁定；如果你的工作表设置了保护密码，需将代码中两处Password:=""替换为实际密码
• 避免循环触发：通过Application.EnableEvents = False禁用事件监听，防止修改Returned列时再次触发Change事件
• 结构化表格适配：利用ListObject对象操作表格，无需担心表格行动态增减的问题，适配性更强
• 精准触发条件：仅在Returned列单个单元格从N改为Y时执行操作，避免误触发

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