如何让点击修改任务状态的VBA脚本在整列生效？

原代码仅对U3生效，是因为用了严格的地址匹配逻辑.Address = Range("U3").Address，只有点击单元格的地址完全等于U3时才触发状态切换。要实现U列指定范围生效，需修改判断条件，改用Intersect函数检测点击单元格是否在目标列范围内。

修改后的完整代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    
    ' 仅处理U3到U1000范围内的单个单元格点击
    If Not Intersect(Target, Range("U3:U1000")) Is Nothing And Target.Cells.Count = 1 Then
        Select Case Target.Value
            Case "TO DO"
                Target.Value = "DONE"
            Case "DONE"
                Target.Value = "ON HOLD"
            Case "ON HOLD"
                Target.Value = "TO DO"
        End Select
    End If
    
    Application.EnableEvents = True
End Sub

关键修改说明： #

• Intersect(Target, Range("U3:U1000")) Is Nothing：判断点击单元格是否落在U3到U1000的范围内，只要有交集就触发后续逻辑
• Target.Cells.Count = 1：避免多选单元格时误触发，只处理单个单元格的点击操作

可选调整： #

如果需要支持U列所有有数据的行（从U3开始自动匹配到最后一行），可以把Range("U3:U1000")替换为Range("U3:U" & Cells(Rows.Count, "U").End(xlUp).Row)，这样会自动适配U列的数据范围，无需手动固定行数。

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