Excel VBA：ComboBox选择值写入单元格及行删除联动问题

问题1：关联单元格显示索引而非文本 #

你当前使用的是表单控件（Form Control）的DropDown，这类控件的LinkedCell默认返回选中项的索引（从1开始），而非文本内容。以下两种方案可修复该问题：

方案A：改用ActiveX控件的ComboBox #

替换原代码为ActiveX控件创建逻辑，ActiveX的ComboBox默认LinkedCell会直接写入选中的文本：

' 添加ActiveX ComboBox
Dim cbo As OLEObject
Set cbo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
    Left:=Range("D" & lastrow).Left + 1, Top:=Range("D" & lastrow).Top + 1, _
    Width:=48, Height:=18)
With cbo
    .Name = "Combo" & lastrow ' 修正原代码的字符串拼接错误
    .Object.ListFillRange = "Ref!$C$6:$C$8"
    .LinkedCell = "D" & lastrow
    .Object.DropDownLines = 3
    .Object.Display3DShading = False
    ' 设置控件随单元格移动/删除
    .Placement = xlMoveAndSize
End With

方案B：给表单DropDown添加宏事件 #

若坚持使用表单控件，需创建宏响应选择事件，将文本写入目标单元格：

1. 先创建响应宏：

Sub DropDown_Change()
    Dim dd As DropDown
    Set dd = ActiveSheet.Shapes(Application.Caller).DropDown
    ' 从控件名称提取对应行号
    Dim rowNum As Long
    rowNum = CLng(Right(dd.Name, Len(dd.Name) - 5))
    ' 将选中项的文本写入关联单元格
    ActiveSheet.Range("D" & rowNum).Value = dd.List(dd.Value)
End Sub

2. 修改原创建控件的代码，绑定宏并移除LinkedCell：

Range("D" & lastrow).Select
ActiveSheet.DropDowns.Add(ActiveCell.Left + 1, ActiveCell.Top + 1, 48, 18).Select
With Selection
    .Name = "Combo" & lastrow ' 修正名称拼接
    .ListFillRange = "Ref!$C$6:$C$8"
    '.LinkedCell = "D" & lastrow ' 移除默认关联
    .DropDownLines = 3
    .Display3DShading = False
    .OnAction = "DropDown_Change" ' 绑定响应宏
    ' 设置随单元格移动删除
    .Placement = xlMoveAndSize
End With

问题2：删除行时控件未同步删除 #

控件未随单元格删除的核心原因是Placement属性设置错误，同时原代码的控件名称拼接错误也会导致后续定位控件困难。修复步骤如下：

1. 创建控件时必须设置Placement = xlMoveAndSize，该属性会让控件完全依附于所在单元格，单元格删除时控件也会被同步删除；
2. 若已有未设置该属性的控件，可批量修正：

Sub FixControlPlacement()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoFormControl And shp.FormControlType = xlDropDown Then
            shp.Placement = xlMoveAndSize
        End If
    Next shp
End Sub

3. 若仍有残留控件，可在删除行的代码中主动检查并删除对应控件：

Sub DeleteRowWithControl(rowNum As Long)
    Dim shp As Shape
    ' 先删除该行对应的控件
    For Each shp In ActiveSheet.Shapes
        If shp.TopLeftCell.Row = rowNum Then
            shp.Delete
        End If
    Next shp
    ' 再删除目标行
    ActiveSheet.Rows(rowNum).Delete
End Sub

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