Excel UserForm三ComboBox联动指导：选中CB1同步填充对应单元格内容

控件选择建议 #

• 首个选择控件用ComboBox完全合适：它支持下拉选择，能清晰展示A列的选项列表，用户操作直观。
• 后续填充字段建议用TextBox：因为需求是自动填充对应单元格内容，不需要用户额外选择，TextBox足够满足展示和只读（可选设置）的需求；如果后续需要让用户从多个选项里选，再考虑用ListBox。

完整代码实现 #

假设你的UserForm上有：

• 名为cbItem的ComboBox（对应你的CB1）
• 名为txtB的TextBox（用来显示B列内容）
• 名为txtC的TextBox（用来显示C列内容）

1. 初始化加载A列数据 #

Private Sub UserForm_Initialize()
    ' 加载Sheet1的A2:A650数据（对应你说的A2起始需求）
    cbItem.List = Sheets("Sheet1").Range("A2:A650").Value
    ' 可选：设置ComboBox默认空值
    cbItem.Value = ""
End Sub

2. 选择项变化时自动填充字段 #

Private Sub cbItem_Change()
    Dim ws As Worksheet
    Dim matchRow As Variant
    
    Set ws = Sheets("Sheet1")
    ' 查找选中项在A列的行号
    matchRow = Application.Match(cbItem.Value, ws.Range("A:A"), 0)
    
    If Not IsError(matchRow) Then
        ' 填充B列对应行内容到txtB
        txtB.Value = ws.Cells(matchRow, "B").Value
        ' 填充C列对应行内容到txtC
        txtC.Value = ws.Cells(matchRow, "C").Value
    Else
        ' 若没找到匹配项，清空文本框
        txtB.Value = ""
        txtC.Value = ""
    End If
End Sub

额外优化提示 #

• 如果需要TextBox只读，可在UserForm初始化时添加：txtB.Locked = True和txtC.Locked = True，防止用户误修改。
• 若A列有重复值，Application.Match会返回第一个匹配的行号，如果你需要处理重复项，可改用循环查找或高级筛选。

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