急！求VBA数组 字典优化程序（附件运行需40多分钟，还不及Sumif）

2841889887

希望保留F6：L705公式和数据

山菊花

忽略了另一个问题。
程序没有直接清除公式区域，但最后将结果写入工作表时，覆盖了原公式。程序修改如下：

2841889887

收到，这欠应是完整的了，下来再仔细学习，谢谢总版主山菊花老师顶力支持，祝山菊花老师业务发达！！！
先温习此模板，以后再请教总版主.

2841889887

这次是完整的，祝老师事业发达！！！

2841889887

再次求助总版主山菊花老师：详见“2月目标表”需求说明。

山菊花

2841889887 发表于 2014-8-29 16:50
再次求助总版主山菊花老师：详见“2月目标表”需求说明。

请测试。
如果“数据源表”中存在新“用途”，汇总时会自动写入“目标表”，前提是目标表留有足够的空行。
汇总按钮在“开始”选项卡第1组。

2841889887

谢谢山菊花老师，从计算结果上来看没有问题，如果再修改一下就好了：新增加“临时用途66”、“临时用途67”、“临时用途68”、“临时用途69”、“临时用途70”、“临时用途71”均在“部门84”对应C列按升序排列，“部门85”至“部门89”直接引用“部门84”对应C列信息，实际就是将新增加的临时用途项全部存放在“部门84”对应C列且按升序排列－－－此做法的目的是运行到12月时可进行所有用途项目汇总，预留行不存在问题。详见附件“3月目标表”上D列所示（应在C列体现。
　　“汇总按钮在“开始”选项卡第1组”执行时每月必须修改如计算月份数据时就必须修改：Set Sh2 = Worksheets(Replace(Sh1.Name, "3月目标表", "3月数据源表"))
    Else
        Set Sh2 = ActiveSheet
        Set Sh1 = Worksheets(Replace(Sh2.Name, "3月数据源表", "3月目标表"))
    End If
　　又学了一招“选项卡”！
　　再次谢谢！！！

山菊花

2841889887 发表于 2014-8-29 22:58
将新增加的临时用途项全部存放在“部门84”对应C列且按升序排列 ...

这个要求不合常理。如果要把新增“用途”全部存放在“部门84”，你在“数据源表”中部门应输入为“部门84”。
增加新“用途”到目标表，也只能按数据源表中的先后顺序，你的这些名称不是虚拟的？实际应用就是这样？
其实你应该反过来操作，在目标表中手工添加新“用途”，在数据源表中通过设置数据有效性调用这些名称。

山菊花

2841889887 发表于 2014-8-29 22:58
每月必须修改如计算月份数据时就必须修改：Set Sh2 = Worksheets(Replace(Sh1.Name, "3月目标表", "3月数据源表")) ...

原程序不用修改可适用于1-12月。
如果你愿意复制成12份并分别使用它，这是你的自由。

2841889887

总版主讲的对，手工填写新增“用途”项目（原想看看VBA能否实现），麻烦山菊花老师了，非常感谢！！！
接下来好好消化、系统学习，再逐步运用。