LotNo As String

|日期控件||简单的收发存||收费管理系(Access改进版)| |电子发票管理助手||电子发票登记系统(Access版)| |文件合并||表格拆分||审计凭证抽查底稿| |中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对| |印章使用登记系统| 收费使用项目 |财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版| 内容提要 复杂的多工作表数据汇总|完整代码 1、在模块工作表“汇总”里，命令按钮点击事件，调用汇总过程： Private Sub CmdSum_Click() Call mySumEnd Sub 2、在模块myModule里，mySum过程： 第一部分，把数据装入字典dic Sub mySum() Dim ws As Worksheet, lastRow As Integer, lastCol As Integer Dim CavNo As String, LotNo As String, DimID As String Dim arr(), temp(), basicData, testData,...