自己写了公式但运行太慢，求拆分表格的VBA宏

我需要将一个原表"all"里的数据拆分成名称不同但格式相同的表
拆分出来的表格需要同时满足4个条件来完成引用，拆分表格的名称是表all的 I 列显示的9个不同的值“11-Mar”,“11-Jun”...与D列里两个不同的值"c","p"排列组合而成
也就是要拆分成18个名字不同的表，如"11-Mar-C","11-Mar-P"，"11-Jun-C"...
表11-Mar-C的单元格(例如B2)引用的是表all里的N列的值(例如N2)的,引用位置由表ALL里的A2,B2,C2,D2这4个值来确定
表ALL的A列里的值对应的拆分出来的表11-Mar-C里的日期A列，完整表里大约有100多天，附件里只例举了3天
表ALL的D列里的值对应的表11-Mar-C表名称里的大写C，一共有"c"和"p"个不同的值
表ALL的E列里的值对应的表11-Mar-C第一行的值"1","1.5","2","2.5"……完整的all表有200个不同的值，附件里只例举了3个 "1","1.5","2"
表ALL的 I 列里的值对应的表11-Mar-C表名称里的11-Mar 需要从日期转换成字符=TEXT(all!$D:$D,"d-mmm")

自己试着用公式写了第一个表格如11-Mar-C里的B2:
=INDEX(all!$N:$N,MATCH($A2&INDEX($1:$1,COLUMN(B2))&"11-Mar"&"c",all!$A:$A&all!$E:$E&TEXT(all!$I:$I,"d-mmm")&all!$D:$D,0))
但运行超慢,求高人指点,能快速拆分的宏,先谢谢了

[ 本帖最后由 xxls82 于 2011-8-6 08:23 编辑 ]

建议用数据透视表。

谢谢2楼  透视表处理这个真合适，是我自己想复杂了