是否可通过data binding将绑定单表的combobox值写入另一张表

完全可以实现你要的效果，ComboBox的展示数据源和写入目标数据源是两个完全独立的配置项，不需要绑定到同一张表。

核心属性区分 #

你只需要分别配置两个属性即可：

• RowSource：负责下拉选项的展示数据源，就是你当前已经配置好的、用来读取可选值的源表配置，保持原有设置不变即可，负责从第一张表拉取展示选项。
• ControlSource：负责选中值的自动同步目标，你把这个属性配置为要写入的第二张目标表的对应单元格/字段即可，选中值会自动同步到目标位置，不需要额外写代码读取。

配置方式 #

你可以选择在属性窗口直接可视化配置，也可以用VBA代码动态配置，参考配置界面：

代码示例 #

表单初始化时配置绑定逻辑：

Private Sub UserForm_Initialize()
    ' 配置下拉选项来源：从选项表读取A列所有可用值
    Me.ComboBox1.RowSource = "选项表!A2:A" & Sheets("选项表").Cells(Rows.Count, "A").End(xlUp).Row
    ' 配置文本框写入目标：输入内容同步到目标表A列
    Me.TextBox1.ControlSource = "目标表!A2"
    ' 配置ComboBox选中值写入目标：选中值同步到目标表B列
    Me.ComboBox1.ControlSource = "目标表!B2"
End Sub

提交按钮逻辑（绑定后不需要额外读取控件值）：

Private Sub 提交按钮_Click()
    ' 计算目标表下一个空行位置
    Dim nextRow As Long
    nextRow = Sheets("目标表").Cells(Rows.Count, "A").End(xlUp).Row + 1
    ' 动态更新绑定目标到新行，下次提交直接写入新行
    Me.TextBox1.ControlSource = "目标表!A" & nextRow
    Me.ComboBox1.ControlSource = "目标表!B" & nextRow
    
    ' 清空控件内容，准备下一次录入
    Me.TextBox1.Value = ""
    Me.ComboBox1.Value = ""
End Sub

进阶场景：存隐藏ID而非显示文本 #

如果你需要存入的是选项对应的关联ID而不是显示的文本，做如下配置即可：

• 将ComboBox的ColumnCount属性设为2，RowSource配置为包含ID和文本的两列范围，比如选项表!A2:B10（A列存ID，B列存显示文本）
• 将BoundColumn属性设为1，指定绑定值取第一列的ID
• 将ColumnWidths属性设为0;100，隐藏第一列的ID，只给用户展示第二列的文本
  配置完成后ControlSource自动同步写入的就是ID值，更适合多表关联的场景。

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