首先后台数据应该有编号、名称、规格这样的对应关系 Private Sub TextBox1_Change() 第一个文本框输入 编号后，在后台数据中查找该编号 后面的文本框 分别等于 名称、规格。End Sub
sheet2.cells(3,2)=sheet1.textbox1.text
在textbox1的change事件里写
