如何根据变量值将TextBox数据复制到指定行？VBA技术问询

我来帮你调整这段VBA代码，既解决你遇到的报错问题，又实现TextBox和工作表指定行/列的双向数据复制需求。下面是完整的可运行代码：

Option Explicit
' 声明全局字典（如需在多个过程复用，可放在模块顶部）
Private DataToColsDict As Object

Private Sub cmdLoadData_Click()
    ' 从工作表读取数据到TextBox
    Dim targetRow As Long
    Dim targetCols As Variant
    Dim tbCounter As Integer
    Dim vCol As Variant
    Dim ws As Worksheet
    
    ' 指定目标工作表，根据你的实际表名修改
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 初始化字典映射关系
    InitializeDataDict
    
    ' 检查选中的Key是否存在，避免运行时报错
    If Not DataToColsDict.Exists(Me.cboDataNumber.Value) Then
        MsgBox "选中的数据编号不存在，请重新选择！", vbExclamation
        Exit Sub
    End If
    
    ' 获取当前Key对应的目标行号和列数组
    targetRow = DataToColsDict(Me.cboDataNumber.Value)(0)
    targetCols = DataToColsDict(Me.cboDataNumber.Value)(1)
    
    ' 循环批量赋值：工作表单元格 → TextBox
    tbCounter = 1
    For Each vCol In targetCols
        If Me.Controls("txtBox" & tbCounter).Name <> "" Then
            Me.Controls("txtBox" & tbCounter).Text = ws.Cells(targetRow, vCol).Text
            tbCounter = tbCounter + 1
        End If
    Next vCol
End Sub

Private Sub cmdSaveData_Click()
    ' 将TextBox数据写入到工作表
    Dim targetRow As Long
    Dim targetCols As Variant
    Dim tbCounter As Integer
    Dim vCol As Variant
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    InitializeDataDict
    
    If Not DataToColsDict.Exists(Me.cboDataNumber.Value) Then
        MsgBox "选中的数据编号不存在，请重新选择！", vbExclamation
        Exit Sub
    End If
    
    targetRow = DataToColsDict(Me.cboDataNumber.Value)(0)
    targetCols = DataToColsDict(Me.cboDataNumber.Value)(1)
    
    ' 循环批量赋值：TextBox → 工作表单元格
    tbCounter = 1
    For Each vCol In targetCols
        If Me.Controls("txtBox" & tbCounter).Name <> "" Then
            ws.Cells(targetRow, vCol).Value = Me.Controls("txtBox" & tbCounter).Text
            tbCounter = tbCounter + 1
        End If
    Next vCol
    MsgBox "数据已保存！", vbInformation
End Sub

Private Sub InitializeDataDict()
    ' 初始化字典：Key对应（目标行号, 列数组）的组合
    Set DataToColsDict = CreateObject("Scripting.Dictionary")
    
    With DataToColsDict
        .Add "Data1", Array(2, Array("C", "D", "E", "F")) ' Data1对应第2行，C-F列
        .Add "Data2", Array(3, Array("C", "D", "E", "F")) ' Data2对应第3行，C-F列
        ' 可灵活扩展更多Key，比如支持不同列数组的场景：
        ' .Add "Data3", Array(4, Array("B", "C", "E"))
    End With
End Sub

关键修改说明： #

• 优化字典映射逻辑：把每个Key（如Data1、Data2）映射为「目标行号+列数组」的组合，既满足你当前“同列不同行”的需求，也支持未来扩展为“不同列不同行”的场景。
• 解决报错问题：通过DataToColsDict.Exists()提前校验选中的Key是否存在，不存在则弹出提示并退出，彻底避免了之前的运行时错误。
• 精准定位目标行：不再循环所有行，而是根据选中的Key直接获取对应的目标行号，解决了之前“填充两行数据”的问题。
• 实现双向复制：拆分出读取和写入两个独立过程，分别处理工作表到TextBox、TextBox到工作表的批量数据同步。
• 增加容错判断：添加了TextBox控件存在性检查，避免因控件命名错误导致的报错。

使用说明： #

1. 在用户窗体中添加两个按钮（cmdLoadData用于读取、cmdSaveData用于保存）、下拉框cboDataNumber（选项设为Data1、Data2）和4个TextBox（命名为txtBox1到txtBox4）。
2. 将上述代码粘贴到用户窗体的代码模块中。
3. 修改代码中的ws = ThisWorkbook.Sheets("Sheet1")为你的实际工作表名称。

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