在Excel2007,如何用VBA Form和代码来实现窗口输入的客户信息,顺序填入？

先用代码找到表格最后一行，明确要填写在哪一行，比如赋值给n这个参数，叫第n行。

然后，Form的每个对象都有一个名称，比如Textbox("姓名")，也对应一个需要填写的列，比如C列（第3列），因此代码为 cells(n,3)=Textbox("姓名").Value 依次写完所有项目即可。

最后修饰一下，比如在首部增加判断If Textbox("姓名")="" Then Msgbox("姓名为必填项目")

这些代码，应该写在“确定添加”这个按钮的点击事件中。

有个取巧的手段。

客户名称在b列

可用

if application.countif(range("b1:b65536"),cells(4,2))>1 then

msgbox "有重复"

exit sub

else

r=range("b65536").end(3).row+1

range("a4:h4").copy range("a"&r)

msgbox "添加成功"

end if

其他的你自己修改下

---