1、实例【运行保存代码，物料明细保存至【入库明细】工作表中！】
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：
Sub 保存()
On Error GoTo 100
Dim es As Range, m%
If Sheet2.Columns("g").Find([b2]) = [b2] Then
MsgBox "已经保存过了！"
Else
100:
Set es = Cells.Find("*", , xlValues, , xlByRows, xlPrevious)
m = Application.CountA(Sheet2.[a:a])
n = es.Row
If es.Row = 4 Then
MsgBox "没有填写内容！"
Else
Range([a5], es).Copy Sheet2.Cells(m + 1, 1)
Sheet2.Cells(m + 1, "g").Resize(es.Row - 4) = [b2]
Sheet2.Cells(m + 1, "h").Resize(es.Row - 4) = [e2]
Sheet2.Cells(m + 1, "i").Resize(es.Row - 4) = Now()
End If
End If
End Sub
6、在工作表界面，【开发工具】菜单下，点击【插入】按钮，填加一表单，与保存代码相关联，并命名为【保存】！
7、点击【保存】按钮，物料信息瞬间被保存至入库明细工作表中！
