按产品名称进行分类汇总

crystal16810

请教大神：如何在《明细表》用VBA一键生成按“品名”进行排序，并分类汇总合计各类产品的数量和应收金额，并把各类产品的合计单独列出，把应收款的总计大写，序号按产品分别排序。期待大神的指教。非常感谢！

蓝桥玄霜

把品名作为关键字放入字典，行数作为它的项。
比较标准的字典模式。

crystal16810

蓝桥玄霜 发表于 2019-10-20 16:20
把品名作为关键字放入字典，行数作为它的项。
比较标准的字典模式。

大神，我不太明白呢，求具体指导？感谢！

xuemei0216

有点不一样，看一下，是不是你想要的

crystal16810

xuemei0216 发表于 2019-10-20 17:56
有点不一样，看一下，是不是你想要的

感谢大神的赐教，我这就去学习一下。

crystal16810

xuemei0216 发表于 2019-10-20 17:56
有点不一样，看一下，是不是你想要的

大神您好！上次您指导的关于分类汇总的在当前那个表用得很顺利，但如果把代码转到别的表就出现“类型不匹配”的提示错误，请问是什么原因？该如何修改？感谢您再次赐教。

出现错误的是这句：  .Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.Items))，该如何修改？谢谢。

crystal16810

xuemei0216 发表于 2019-10-20 17:56
有点不一样，看一下，是不是你想要的

大神，还有一个问题希望能得到您的指教，如果产品类别是少于或等于2个，那么就有出错提示了，该如何修改?感谢指教。