Excel设置A列Data validation下拉后如何自动在B列相邻单元格填对应预设值

完全可以实现，无需在B列添加任何数据验证规则，以下两种方案按需选择即可：

方案一：公式自动匹配（无需启用宏，推荐新手使用） #

• 第一步：配置A列下拉菜单
  选中需要添加下拉选项的A列目标范围（例如A2:A1000，不建议直接选整列造成性能冗余），点击顶部菜单栏「数据」→「数据验证」，验证类型选择「序列」，来源处填写下拉选项（选项之间用英文逗号分隔，例如是,否,待确认），也可以直接选择提前在其他区域录入好的选项列表，确认后即可完成下拉菜单配置。
• 第二步：配置B列自动匹配规则
  先整理好选项和对应预设值的映射关系：如果选项较多，可以新建一个工作表（后续可隐藏），A列录入所有下拉选项，B列录入每个选项对应的预设固定值；如果选项数量少，可以直接把映射逻辑写进公式。
  选中B列和A列下拉起始行对齐的单元格（例如A列从A2开始，就选B2），根据自己的Excel版本选对应公式输入：
  • 365/2021及以上新版本（支持XLOOKUP）：如果用了单独的映射表，输入 =IF(A2="","",XLOOKUP(A2,映射表!A:A,映射表!B:B,""))；如果选项少不用映射表，直接用嵌套IF：=IF(A2="是","已通过",IF(A2="否","已驳回",IF(A2="待确认","待审核","")))
  • 2019及更早老版本（无XLOOKUP）：映射表场景用 =IF(A2="","",VLOOKUP(A2,映射表!A:B,2,FALSE))，少选项场景同样可以用上面的嵌套IF公式。
    输入完公式后，把单元格公式向下填充到所有需要自动填值的行即可。后续A列选中下拉选项后，B列会自动带出对应预设值，A列为空时B列也会保持空白，不会显示错误值。

注意：公式法下B列是公式计算结果，如果需要把B列内容转成静态值，选中B列复制后右键选「值粘贴」即可。

方案二：VBA事件自动填充（B列直接生成静态值，无公式） #

如果不想在B列保留公式，需要直接写入静态固定值，可以用工作表Change事件实现：

• 按快捷键Alt+F11打开VBA编辑器，在左侧工程资源管理器中双击需要实现效果的工作表名称，在弹出的代码编辑区粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义监控的A列范围，可按需修改行号
    Dim watchRng As Range
    Set watchRng = Me.Range("A2:A1000")
    If Not Intersect(Target, watchRng) Is Nothing Then
        Application.EnableEvents = False
        Dim cel As Range
        For Each cel In Intersect(Target, watchRng)
            ' 以下Case后的值按自己实际的选项和预设值修改即可
            Select Case VBA.Trim(cel.Value)
                Case "是"
                    cel.Offset(0, 1).Value = "已通过"
                Case "否"
                    cel.Offset(0, 1).Value = "已驳回"
                Case "待确认"
                    cel.Offset(0, 1).Value = "待审核"
                Case Else
                    cel.Offset(0, 1).Value = ""
            End Select
        Next
        Application.EnableEvents = True
    End If
End Sub

• 粘贴完成后关闭VBA编辑器，将文件保存为.xlsm启用宏的格式即可生效。后续在A列选择下拉选项时，B列相邻单元格会直接填入对应的静态预设值，不会留存公式，也不用担心公式被误删失效。

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