Excel VBA如何获取ComboBox选中列位置并读取对应单元格值

原错误代码的问题：ComboBox1.Cells(2,1)写法不成立，ComboBox控件没有Cells属性，因此会触发运行错误。

你当前使用的Find方法是可行方案，但是可以做容错优化，同时有更高效的实现方式可选，两种常用正确方案如下：

方案1：最高效方案（无需查找，利用初始化顺序特性） #

你在UserForm初始化时是按从左到右第1列到最后一列的顺序给ComboBox添加选项的，ComboBox选中项的ListIndex属性从0开始计数，正好对应添加顺序，因此ListIndex + 1就是选中列的实际列号，无需额外查找：

Public Sub Continue_Click()
    Dim colNum As Long
    Dim targetCol As Range

    ' 校验用户是否已选择选项
    If ComboBox1.ListIndex = -1 Then
        MsgBox "请先选择目标列", vbExclamation
        Exit Sub
    End If

    ' 直接通过ListIndex计算列号
    colNum = ComboBox1.ListIndex + 1
    Set targetCol = ActiveSheet.Columns(colNum)

    ' 实现需求：将A1赋值为所选列第2行的内容
    Range("A1").Value = targetCol.Cells(2, 1).Value

    Hide
End Sub

适用场景 #

保证ComboBox初始化后，首行的列顺序、列名没有被修改，这个方案时间复杂度为O(1)，性能最优。

方案2：稳定兼容方案（优化Find写法，适配列变更场景） #

如果后续可能调整列顺序、修改列名，用优化后的Find方案更稳妥，增加完全匹配校验和异常处理，避免部分匹配或者找不到值的报错：

Public Sub Continue_Click()
    Dim selectedName As String
    Dim findRng As Range
    Dim targetCol As Range

    If ComboBox1.ListIndex = -1 Then
        MsgBox "请先选择目标列", vbExclamation
        Exit Sub
    End If

    selectedName = ComboBox1.Value
    ' 查找时指定完全匹配单元格内容，避免部分匹配错误
    Set findRng = ActiveSheet.Rows(1).Find( _
        What:=selectedName, _
        LookIn:=xlValues, _
        LookAt:=xlWhole _
    )

    If Not findRng Is Nothing Then
        Set targetCol = findRng.EntireColumn
        Range("A1").Value = targetCol.Cells(2, 1).Value
    Else
        MsgBox "未找到匹配的列，请检查首行列名是否变更", vbExclamation
    End If

    Hide
End Sub

适用场景 #

适配初始化后列可能发生调整的场景，稳定性更强。

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