Excel VBA如何通过ComboBox实现跨工作表表单自动填充

你的代码存在几处语法和逻辑错误，直接导致运行时报错、功能不符合预期：

• 语法错误：Set仅用于给对象（工作表、单元格、控件等）赋值，向单元格写入值时不需要加Set；同时你未指定Cells(53,1)所属的工作表，默认会指向当前活动工作表，和你要写入的RFQ Information工作表可能不一致。
• 逻辑错误：UserForm_Initialize是窗体打开时自动执行的初始化事件，你在事件内部写UserForm1.Show会触发递归调用，导致窗体加载异常，这行代码完全多余。
• 容错缺失：如果下拉框选的值在供应商表中匹配不到，VLookup会直接抛出运行时错误，没有兜底提示。
• 功能缺失：现有代码仅尝试读取供应商表第2列的内容，没有实现相邻列所有详情提取、转置填充到表单的需求。

直接替换原有代码即可：

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim supSheet As Worksheet
    Dim tbl As ListObject
    Dim matchRow As Variant
    
    ' 绑定目标工作表对象
    Set ws = ThisWorkbook.Worksheets("RFQ Information")
    Set supSheet = ThisWorkbook.Worksheets("Suppliers")
    Set tbl = supSheet.ListObjects("Table1")
    
    ' 检查是否已选择供应商
    If Me.ComboBox1.Value = "" Then
        MsgBox "请先选择供应商", vbExclamation
        Exit Sub
    End If
    
    ' 匹配供应商在表中的行号
    matchRow = Application.Match(Me.ComboBox1.Value, tbl.ListColumns(1).DataBodyRange, 0)
    
    ' 匹配失败兜底
    If IsError(matchRow) Then
        MsgBox "未找到对应供应商信息", vbExclamation
        Exit Sub
    End If
    
    ' 提取供应商名称外的所有详情，转置后竖向填充到RFQ表A53开始的位置
    ' 如需横向填充，去掉Application.Transpose()，同时把Resize参数改为(1, tbl.ListColumns.Count - 1)
    ws.Cells(53, 1).Resize(tbl.ListColumns.Count - 1, 1).Value = _
        Application.Transpose(tbl.DataBodyRange.Cells(matchRow, 2).Resize(1, tbl.ListColumns.Count - 1).Value)
    
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim SupplierName As Range
    Dim SupSheet As Worksheet
    Dim tbl As ListObject
    Dim SupArray As Variant
    
    ' 初始化加载供应商列表到下拉框
    Set SupSheet = ThisWorkbook.Sheets("Suppliers")
    Set tbl = SupSheet.ListObjects("Table1")
    Set SupplierName = tbl.ListColumns(1).DataBodyRange
    
    SupArray = SupplierName.Value
    Me.ComboBox1.List = SupArray
End Sub

• 用Application.Match代替VLookup查找行号，匹配到之后可一次性读取整行供应商详情，不需要逐列写查找公式，执行效率更高
• 所有工作表对象都明确绑定到代码所在的当前工作簿，避免跨工作簿读取时出现范围错位
• 增加了空值、匹配失败的弹窗提示，不会直接抛出运行时错误
• 自动读取供应商行从第2列开始的所有详情（地址、联系电话等），默认转置为竖向填充，适配大多数表单的竖向排版需求，可根据需要调整填充方向、起始单元格位置

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