Excel VBA：如何根据一个ComboBox的值改变另一个ComboBox的RowSource？

先修复你的编译错误 #

你的代码出现编译错误有两个核心原因：

• 区域引用格式错误：Info!A2: A25不符合VBA语法，RowSource需要字符串形式的区域地址，且地址内不能有空格
• 单行If语句多余End If：当If...Then的执行语句和Then在同一行时，不需要单独写End If

修正后的基础代码（用Select Case适配多标题场景，比多个If更整洁）：

Private Sub ComboBox1_Change()
    Select Case Me.ComboBox1.Value
        Case "Headline1"
            Me.ComboBox2.RowSource = "Info!A2:A25"
        Case "Headline2"
            Me.ComboBox2.RowSource = "Info!B2:B25"
        ' 依次添加剩余8个标题对应的子列表区域
        Case Else
            Me.ComboBox2.RowSource = "" ' 无匹配项时清空第二个ComboBox
    End Select
End Sub

更高效的通用方案（适配10个标题的场景） #

如果每个标题对应的子列表都在标题下方连续排列，可通过自动查找标题位置匹配子列表，不用逐个手动编写区域地址：
假设标题存放在Info工作表的第一行（如A1:J1），每个标题下方的子列表从第二行开始，代码如下：

Private Sub ComboBox1_Change()
    Dim ws As Worksheet
    Dim titleRng As Range
    Dim subListRange As Range
    
    Set ws = ThisWorkbook.Worksheets("Info")
    ' 在第一行精准查找选中的标题
    Set titleRng = ws.Rows(1).Find(What:=Me.ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not titleRng Is Nothing Then
        ' 取标题下方15行作为子列表区域
        Set subListRange = ws.Range(titleRng.Offset(1, 0), titleRng.Offset(15, 0))
        Me.ComboBox2.RowSource = subListRange.Address(External:=True)
    Else
        Me.ComboBox2.RowSource = ""
    End If
End Sub

方案优势： #

• 扩展性强：新增标题时只需在Info表第一行添加标题，下方补充子列表即可，无需修改代码
• 减少手动编写区域地址的出错概率

注意事项 #

• 确保Info工作表名称与代码中一致，拼写不能出错
• 第一个ComboBox的RowSource需正确指向标题列表（如Info!A1:J1）
• 粘贴代码时，需确保VBA编辑器中选中的是用户窗体的代码窗口

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