VBA删除行时如何同步删除对应ActiveX ComboBox？

嘿，这个问题我太熟悉了！你遇到的核心问题是：ActiveX ComboBox属于工作表的OLEObjects集合，不是单元格的一部分，所以执行Rows.Delete只会删除行内的单元格内容，不会自动清理附着在该行的ActiveX控件。下面给你两种靠谱的解决方案：

方案一：按位置匹配删除（最稳妥） #

遍历工作表所有OLE对象，找到位于目标行的ComboBox并删除，再执行行删除操作。把你的删除按钮代码改成这样：

Sub DeleteRow()
    Dim targetRow As Long
    ' 获取当前点击的删除按钮所在的行号
    targetRow = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
    
    ' 遍历所有OLE对象，删除该行的ComboBox
    Dim oleObj As OLEObject
    For Each oleObj In ActiveSheet.OLEObjects
        ' 判断对象是否是ComboBox，且位于目标行
        If oleObj.TopLeftCell.Row = targetRow And TypeName(oleObj.Object) = "ComboBox" Then
            oleObj.Delete
        End If
    Next oleObj
    
    ' 最后删除整行
    Rows(targetRow).Delete
End Sub

这个方法的好处是不管ComboBox的名称有没有变化，只要它在目标行上，就能被精准删除，不会误删其他行的控件。

方案二：利用控件名称快速删除（更高效） #

因为你创建ComboBox时已经把它的Name设为了对应行号（cb.Name = cfgRows + 1），所以可以直接通过名称定位并删除控件，代码更简洁：

Sub DeleteRow()
    Dim targetRow As Long
    targetRow = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
    
    ' 按名称删除对应行的ComboBox，加错误处理避免找不到控件时报错
    On Error Resume Next
    ActiveSheet.OLEObjects(CStr(targetRow)).Delete
    On Error GoTo 0
    
    ' 删除整行
    Rows(targetRow).Delete
End Sub

这里的On Error Resume Next是为了防止该行没有ComboBox时触发错误，确保代码能继续执行行删除操作。

补充说明 #

为什么原来的代码删不掉ComboBox？因为Excel的单元格内容和ActiveX控件是两个独立的层级：单元格属于Rows/Columns集合，而ActiveX控件属于OLEObjects集合，它们只是位置上关联，没有从属关系。所以必须主动找到并删除对应的OLE对象，才能彻底清理掉该行的ComboBox。

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