1、实例【运行保存代码，物料明细保存至【入库明细】工作表中！】
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：Sub 保存()On Error GoTo 100Dim es As Range, m%If S茑霁酌绡heet2.Columns("g").Find([b2]) = [b2] Then MsgBox "已经保存过了！"Else100: 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 IfEnd IfEnd Sub
6、在工作表界面，【开发工具】菜单下，点击【插入】按钮，填加一表单，与保存代码相关联，并命名为【保存】！
7、点击【保存】按钮，物料信息瞬间被保存至入库明细工作表中！
