打开VBA代码,在modGong模块中。
找到如下代码:
- x = Sheets("入库明细").[b600].End(3).Row
复制代码 改为:
- x = Sheets("入库明细").Range("B" & Sheets("入库明细").Rows.Count).End(xlUp).Row
复制代码
找到如下代码:
- x = Sheets("出库明细").[b600].End(3).Row
复制代码 改为:
- x = Sheets("出库明细").Range("B" & Sheets("出库明细").Rows.Count).End(xlUp).Row
复制代码
修改以上两处代码,就可以了。
主贴表格已经更新,如果不会改代码,可以重新下载表格,然后把旧表格的数据复制到新表格里。
新旧复制时,只要复制以下4个工作表的数据即可:存货档案、基础档案、入库明细、出库明细。 |