复杂的字典使用求助

coden0906

各位大大好：
       已知2张基础表：
1、出入库表：

2、发放（售出）明细表：


实现：统计入库号段，减去出库号段，再减去已发放的号段，要求自动根据发放明细表的C列，自动生成号段（标黄部分）。

再进一步，实现库存统计，如下表：



此过程比较复杂，请各位大大指教，个人只能实现用字典统计到进出库（代码较多），自动号段生成那个还没想到好的方法，
希望各位大大不吝赐教，能有简单的实现思路，谢谢！
表格附件：
样表.zip (8.48 KB, 下载次数: 11)

2018-8-18 19:04 上传

点击文件名下载附件

microyip

数量跟号段无关，只需要对“类型数量”进行拆分归类即可
面额跟号段有关，但不知道如何计算，求和？

coden0906

mikezhan 发表于 2018-8-19 13:38
Sub test()
Dim arr, brr, crr, drr, krr()
Set xd100 = CreateObject("scripting.dictionary")

谢谢大大的回复，有几个问题：
1、如果有更多的面额，则就无法操作；
2、号段显示要求为XXXXXXXXXXXX-XXXX，不然如果数量较多比如20，单元格就比较大了。

不过自己想了一下午，还是实现了，虽然代码有点长。
还是谢谢大大。。。。