没问题，你的需求确实需要用VBA来实现精准的条件触发，我给你整理了一套可直接用的代码，还有详细的操作步骤：

操作步骤 #

1. 打开你的Excel文件，先确保能看到「开发工具」选项卡（如果看不到，就去「文件」→「选项」→「自定义功能区」，勾选「开发工具」）。
2. 点击「开发工具」里的「Visual Basic」按钮，打开VBA编辑器。
3. 在左侧的「工程资源管理器」中找到你要设置的工作表（比如Sheet1），双击它打开代码编辑窗口。
4. 把下面的代码粘贴进去，然后根据你的实际场景修改参数：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听下拉列表所在的列（这里假设下拉在D列，列号是4，按需修改）
    If Target.Column = 4 Then
        ' 定义触发第一列（比如E列）日期的4个下拉选项，替换成你的实际选项
        Dim triggerColumn1 As Variant
        triggerColumn1 = Array("待审核", "已通过", "待修改", "已归档")
        
        ' 定义触发第二列（比如F列）日期的2个下拉选项，替换成你的实际选项
        Dim triggerColumn2 As Variant
        triggerColumn2 = Array("已驳回", "已取消")
        
        ' 关闭事件触发，防止循环执行
        Application.EnableEvents = False
        
        ' 检查当前选择的选项是否属于第一组
        If IsInArray(Target.Value, triggerColumn1) Then
            ' 在右侧第一列填充今日日期（Offset(0,1)表示同右侧第1列，按需调整）
            Target.Offset(0, 1).Value = Date
            ' 清空另一列的日期（如果不需要可以删掉这行）
            Target.Offset(0, 2).Value = ""
        ' 检查是否属于第二组
        ElseIf IsInArray(Target.Value, triggerColumn2) Then
            ' 在右侧第二列填充今日日期
            Target.Offset(0, 2).Value = Date
            ' 清空第一列的日期（不需要可删除）
            Target.Offset(0, 1).Value = ""
        ' 其他选项则清空两列日期
        Else
            Target.Offset(0, 1).Value = ""
            Target.Offset(0, 2).Value = ""
        End If
        
        ' 重新开启事件触发
        Application.EnableEvents = True
    End If
End Sub

' 辅助函数：检查某个值是否在指定数组中
Function IsInArray(valToFind As Variant, arr As Variant) As Boolean
    Dim element As Variant
    For Each element In arr
        If element = valToFind Then
            IsInArray = True
            Exit Function
        End If
    Next element
    IsInArray = False
End Function

参数修改说明 #

• 下拉列调整：如果你的下拉列表不在D列，把Target.Column = 4里的4改成对应列号（A列=1，B列=2，以此类推）。
• 选项替换：把triggerColumn1和triggerColumn2里的示例选项，换成你实际的下拉选项，注意要和下拉列表里的文本完全一致（区分大小写）。
• 目标列调整：Target.Offset(0,1)表示当前单元格右侧第1列（比如D列的话就是E列），如果要填到左侧列就用负数（比如Offset(0,-1)是左侧第1列），Offset(0,2)是右侧第2列，按需修改。

测试与保存 #

• 粘贴完代码后，关闭VBA编辑器，回到Excel。
• 选择下拉选项测试：选第一组的4个选项时，对应列会自动填充今日日期；选第二组的2个选项时，另一列填充日期；选其他值则清空两列。
• 最后记得把文件保存为启用宏的工作簿（.xlsm格式），否则宏会失效。

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