嘿，你已经搞定了List2选项的动态变更，现在就差让选中值跟着List1的选择自动调整这一步了对吧？我给你分享一个实用的VBA方案，亲测好用：

核心思路 #

当用户在List1（比如A1单元格）切换产品时，自动检查List2（比如B1单元格）当前选中的付款周期是否符合当前产品的可用规则，如果不符合就自动替换成该产品支持的默认值（比如通用的6）。

具体步骤 #

1. 打开Excel，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里找到你对应的工作表，双击它打开代码窗口
3. 粘贴下面这段代码，记得根据你实际的单元格位置修改Range("A1")和Range("B1")：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听List1所在的单元格变更
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Dim selectedProduct As String
        selectedProduct = Target.Value
        Dim currentTerm As String
        currentTerm = Me.Range("B1").Value
        
        ' 根据选中的产品校验付款周期是否合法
        Select Case selectedProduct
            Case "Product1"
                ' Product1不支持3和16，若当前选中了这两个，自动替换为通用的6
                If currentTerm = "3" Or currentTerm = "16" Then
                    Me.Range("B1").Value = "6"
                End If
            Case "Product2"
                ' Product2支持所有选项，无需调整，要是你想设默认值也可以加在这里
                ' 比如 Me.Range("B1").Value = "6" 强制默认6
            Case Else
                ' 没选产品时清空List2的选中值
                Me.Range("B1").Value = ""
        End Select
    End If
End Sub

注意事项 #

• 保存文件时要选择「Excel启用宏的工作簿（.xlsm）」格式，否则宏会丢失
• 如果你的List1/List2不在A1/B1，直接修改代码里的单元格引用就行
• 要是后续产品的可用付款周期有变化，只需要调整Case里的判断条件就好

另外，如果你不想用宏，也可以试试用IF函数结合数据验证的方式，但灵活性不如VBA——比如可以在辅助单元格写公式判断当前选中值是否合法，再用条件格式提示，但自动替换选中值还是VBA最直接。

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