V列下拉列表设为Sold/Active时，将W列值复制到Y列的VBA需求

你需要的是响应下拉列表变更的事件触发代码，用来在V列改为"Sold"或"Active"时，把W列的当前动态价格（XLOOKUP计算结果）冻结到Y列。你提供的示例代码是主动遍历行判断分数的逻辑，和需求的事件响应逻辑不同，下面是适配需求的解决方案：

核心代码（需放入目标工作表模块） #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理V列的单元格修改
    If Not Intersect(Target, Me.Range("V:V")) Is Nothing Then
        ' 支持批量修改V列的情况
        Dim cell As Range
        For Each cell In Intersect(Target, Me.Range("V:V"))
            ' 忽略空值，匹配大小写不敏感的状态值
            If cell.Value <> "" Then
                Select Case UCase(cell.Value)
                    Case "SOLD", "ACTIVE"
                        ' 关闭事件触发，避免赋值Y列时重复触发本事件
                        Application.EnableEvents = False
                        ' 将W列的当前计算值（而非公式）写入Y列，实现冻结
                        Me.Range("Y" & cell.Row).Value = Me.Range("W" & cell.Row).Value
                        Application.EnableEvents = True
                End Select
            End If
        Next cell
    End If
End Sub

关键说明 #

• 事件触发逻辑：这段代码是工作表级的Change事件，只有当V列单元格被修改时才会执行，不需要手动运行
• 大小写兼容：用UCase统一转换为大写判断，避免输入"Sold"/"sold"等不同大小写时失效
• 冻结动态值：直接赋值.Value会提取W列XLOOKUP的当前计算结果，而非复制公式，确保价格被固定在修改状态的那一刻
• 批量修改支持：遍历所有被修改的V列单元格，即使一次性修改多行V列内容也能正常工作
• 事件防循环：修改Y列时会临时关闭事件触发，避免触发新一轮的Change事件导致死循环

和你提供的示例代码的区别 #

你给的ReadMarks是主动遍历固定行范围（2到11行）并判断C列分数的代码，属于主动执行的宏；而需求需要的是被动响应单元格修改的事件代码，逻辑触发方式、处理范围和目标操作完全不同。

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