VBA下拉列表数据源为公式时无法自动触发问题求助

问题核心：Worksheet_Change事件仅响应手动输入的单元格内容变更，公式计算导致的单元格值变化不会触发该事件。因此需要改用Worksheet_Calculate事件监控数据源所在工作表的计算变化。

解决方案步骤： #

1. 移除Sheet5中的Worksheet_Change事件（若该事件仅用于触发下拉列表更新），转而在Sheet4（数据源所在工作表）中添加Worksheet_Calculate事件：

Private Sub Worksheet_Calculate()
    ' 静态变量缓存上次数据源内容，避免无意义重复执行
    Static lastSourceContent As String
    Dim currentSourceContent As String
    
    ' 将数据源区域拼接为字符串，用于对比变化
    currentSourceContent = Join(Application.Transpose(Me.Range("K8:K1000").Value), ",")
    
    ' 仅当数据源内容实际变化时，更新下拉列表
    If currentSourceContent <> lastSourceContent Then
        setupDV_2
        lastSourceContent = currentSourceContent
    End If
End Sub

2. 保留原setupDV_2模块代码（无需修改），该代码负责从Sheet4提取去重后的数据源，生成Sheet5的下拉列表。

关键说明： #

• Worksheet_Calculate会在Sheet4的所有公式计算完成后触发，覆盖公式更新导致的数据源变化场景。
• 加入静态变量lastSourceContent是为了避免每次Sheet4计算（哪怕是和数据源无关的公式）都执行下拉列表更新，仅当数据源真的变化时才触发，提升性能。
• 如果需要同时支持手动修改Sheet4的数据源（虽然当前是公式生成），可以在Sheet4中同时保留Worksheet_Change事件，监控K8:K1000的手动修改：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Set r = Application.Intersect(Target, Me.Range("K8:K1000"))
    If Not r Is Nothing Then
        setupDV_2
    End If
End Sub

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