请问各位老师，运行时错误’424’，要求对象怎样解决

wyzdddl

各位老师新年好！
       老师，这是我将一个使用的代码简化后的（附件中下面的代码简化成上面的代码），arr = Target.Offset(, -1).Resize(, 14) 这个语句提示“运行时错误‘424‘’，要求对象”。请老师帮助解决
Sub 订货()
    If Target.Column = 2 Then
      arr = Target.Offset(, -1).Resize(, 14)
      With Sheets("订货单")
          lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1
          .Cells(lr, 2) = arr(1, 2)  
          .Cells(lr, 3) = arr(1, 3)
          .Cells(lr, 4) = arr(1, 14)
          .Cells(lr, 6) = arr(1, 7)
      End With   
    End If

End Sub
订货.rar (81.85 KB, 下载次数: 3)

2019-2-17 11:09 上传

点击文件名下载附件

abc123281

既然不会使用   那你需要详细说明需要干什么   想要实现什么样的效果

wyzdddl

abc123281 发表于 2019-2-17 13:20
既然不会使用   那你需要详细说明需要干什么   想要实现什么样的效果

老师新年好！
我选择“配件资料”工作表B列配件名称后，执行代码，将B列所在行的相关单元格内容复制到“订货”工作表的同名列中

wyzdddl

谢谢各位老师的关注，换一个思路，问题解决了