如何在Excel单元格中创建嵌入式ComboBox并实现值映射

嘿，我刚好处理过类似的需求，给你两种靠谱的解决方案，都能实现你要的嵌入单元格内的下拉列表，选完直接显示对应数字，完全不用弹出UserForm：

方法1：数据验证 + 工作表VBA事件（最贴合需求） #

这个方法能让你在同一个单元格里操作：点下拉箭头选PERRO/GATO/VACA，单元格立刻自动换成对应的1/2/3，完全嵌入单元格，没有额外窗口。

操作步骤：

1. 打开你的Excel文件，右键点击目标工作表的标签（比如Sheet1），选「查看代码」
2. 在弹出的VBA编辑器里，粘贴这段代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 这里指定要设置的单元格，比如我写的是C1，你可以改成自己需要的单元格地址
    If Target.Address = "$C$1" Then
        Application.EnableEvents = False ' 防止循环触发修改事件
        Select Case Target.Value
            Case "PERRO"
                Target.Value = 1
            Case "GATO"
                Target.Value = 2
            Case "VACA"
                Target.Value = 3
            Case Else
                Target.Value = "" ' 选了不在列表里的内容就清空，可按需修改
        End Select
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

3. 回到Excel界面，选中刚才指定的单元格（比如C1），设置数据验证：
   • 点顶部菜单栏的「数据」→「数据验证」
   • 在对话框里，「允许」选「序列」，「来源」输入 PERRO,GATO,VACA，记得勾选「提供下拉箭头」
4. 现在测试一下：点单元格的下拉箭头选PERRO，单元格马上变成1；选GATO就显示2，完美符合你的要求！

小提示： #

• 如果要给多个单元格都设置这个功能，把代码里的Target.Address = "$C$1"改成If Not Intersect(Target, Range("C1:C10")) Is Nothing Then，这样C1到C10的单元格都能生效
• 保存文件的时候要选「Excel启用宏的工作簿（.xlsm）」，不然宏会失效哦

方法2：数据验证 + 辅助单元格（无需VBA） #

如果你不想用宏，这个方法也能搞定，只是需要一个辅助单元格：

1. 先在工作表的空白角落（比如A1:B3）建个对应关系表：
   • A1写PERRO，B1写1
   • A2写GATO，B2写2
   • A3写VACA，B3写3
     （可以把这个区域隐藏起来，避免误改）
2. 给目标单元格（比如C1）设置数据验证，来源选=$A$1:$A$3
3. 在旁边的辅助单元格（比如D1）输入公式：=VLOOKUP(C1,$A$1:$B$3,2,FALSE)，这样C1选PERRO时，D1就显示1
4. 要是想让数字显示在原来的单元格里，也可以把数据验证放在辅助单元格，目标单元格用VLOOKUP引用它，然后把辅助单元格隐藏（比如调列宽为0，或者字体颜色和背景色设成一样）

两种方法各有优势，方法1完全贴合你要的「嵌入单元格」的需求，操作起来更直观；方法2适合不能用宏的环境。

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