1、打“单据文件”，点开“入库单”工作表，全选工作表，注意是全选工作表，而不是全选“入库单”这个表格，复制整个工作表。

2、点开“订货单”工作表，选中A1单元格，把复制的东西全部粘贴下来。注意，是内容、格式、公式全部粘贴。

3、更改一下粘贴下来的“入库单”相关内容：单据名称里的“入库单”三字改为“订货单”，单据尾部的“收货人”改为“制单”，“送货人”改为“审核”。

4、点开入库记录，全选工作表，单击右键，复制整个工作表。方法：选中空白处任意单元格，Ctrl+A——Ctrl+。

5、点开“订货记录”工作表，选中A1单元格，粘贴全部（格式、内容、公式）。

6、然后把粘贴下来的字段名改一下，“收货人”改成“制单”。其他地方内容一样，不需修改。

7、按Alt+F11，打开VB编辑器，把模块1的代码复制下来。

8、插入一个新模块，系统会自动命名为“模块2”，点开模块2，修改一代码。

9、进行保存即可。