VBA表格指定行信息传输及运行时错误13排查

一、运行时错误13的直接诱因 #

1. ListObject列引用方式错误：原代码用tbl.DataBodyRange.Columns("Machine")定位列，Columns方法不支持直接传入列标题字符串，需通过ListColumns("Machine").DataBodyRange来指定目标列的数据区域。
2. 未处理tbl未赋值场景：若用户输入的业务单元不是AXLE/CAT/IB，tbl会变成Nothing，此时访问tbl.DataBodyRange直接触发类型不匹配。
3. 未处理查找失败情况：如果找不到对应机器ID，MachFinder会是Nothing，后续引用MachFinder.Row会报错。

二、其他逻辑错误点 #

• 对象赋值遗漏Set：transfer = tbl.ListRows(...)中，ListRows返回ListRow对象，必须用Set赋值，否则触发类型不匹配。
• 复制范围处理错误：machineinfo = Array("B2:D2", "F2")是字符串数组，无法直接调用Copy，需明确引用Interface工作表的对应单元格区域。
• 常量拼写错误：x1PasteValues是拼写失误，正确常量为xlPasteValues（字母L，不是数字1）。

三、优化后的完整代码 #

Sub Info_Update()
    Dim wbk As Workbook
    Dim axws As Worksheet, catws As Worksheet, ibws As Worksheet, interfaceWs As Worksheet
    Dim AxleTab As ListObject, CatTab As ListObject, IBTab As ListObject, tbl As ListObject
    Dim MachFinder As Range
    Dim unit_input As String, machine_input As String
    Dim targetRow As ListRow
    
    ' 初始化核心对象
    Set wbk = ThisWorkbook
    Set interfaceWs = wbk.Worksheets("Interface")
    Set axws = wbk.Worksheets("AXLEWS")
    Set catws = wbk.Worksheets("CAT")
    Set ibws = wbk.Worksheets("IB")
    
    Set AxleTab = axws.ListObjects("axle_tab")
    Set CatTab = catws.ListObjects("cat_tab")
    Set IBTab = ibws.ListObjects("ib_tab")
    
    ' 获取并校验输入值
    unit_input = Trim(interfaceWs.Range("A2").Value)
    machine_input = Trim(interfaceWs.Range("B2").Value)
    
    If unit_input = "" Or machine_input = "" Then
        MsgBox "业务单元或机器ID不能为空！", vbExclamation
        Exit Sub
    End If
    
    ' 绑定目标ListObject
    Select Case UCase(unit_input)
        Case "AXLE": Set tbl = AxleTab
        Case "CAT": Set tbl = CatTab
        Case "IB": Set tbl = IBTab
        Case Else
            MsgBox "无效业务单元，请输入AXLE/CAT/IB！", vbExclamation
            Exit Sub
    End Select
    
    ' 检查目标表是否有数据行
    If tbl.DataBodyRange Is Nothing Then
        MsgBox "目标业务单元表无数据，请先添加行！", vbExclamation
        Exit Sub
    End If
    
    ' 查找机器ID
    Set MachFinder = tbl.ListColumns("Machine").DataBodyRange.Find( _
        What:=machine_input, LookAt:=xlWhole, MatchCase:=False)
    
    If MachFinder Is Nothing Then
        MsgBox "未找到机器ID：" & machine_input, vbExclamation
        Exit Sub
    End If
    
    ' 获取目标行并粘贴数据
    Set targetRow = tbl.ListRows(MachFinder.Row - tbl.HeaderRowRange.Row)
    ' 按对应列粘贴：B2:D2对应目标行第2-4列，F2对应第6列（可根据实际列顺序调整）
    interfaceWs.Range("B2:D2").Copy
    targetRow.Range.Cells(1, 2).PasteSpecial Paste:=xlPasteValues
    interfaceWs.Range("F2").Copy
    targetRow.Range.Cells(1, 6).PasteSpecial Paste:=xlPasteValues
    
    ' 清空输入区域并清理剪贴板
    interfaceWs.Range("A2:F2").ClearContents
    Application.CutCopyMode = False
    MsgBox "信息更新完成！", vbInformation
End Sub

四、关键优化说明 #

• 输入校验：增加空值、无效业务单元的校验，避免后续逻辑崩溃。
• 大小写兼容：用UCase(unit_input)统一格式，支持用户输入小写或混合大小写的业务单元。
• 错误兜底：处理了目标表无数据、机器ID查找失败的场景，给出明确提示。
• 对象规范：所有对象赋值均使用Set，避免类型不匹配。
• 复制逻辑修正：明确源区域与目标列的对应关系，可根据实际表结构调整目标列索引。

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