从PROJECT导出到EXCEL中的任务如何快速分级？
作为计划工程师或计划管理人员，经常把任务从Project导出到Excel中，一是因为Excel是通用软件，计划人人都可打开编辑，二是因为Excel的强大数据处理能力，可以解决Project中无法处理的问题，如生成S-Curve和进度计算。但是当把任务复制到Excel时，分级显示却丢失了，只能手动分组。倘若十条八条手动也就算了，但老崔的计划偏偏都是四五千条或更多的体量，办法有没有？有没有？这个当然可以有，废话不多说，直接上干货！
1
Project中的任务如下图所示，为简单起见只写了几行。
2
在“任务名称”前面增加“大纲级别”一列，如下图所示：
3
将大纲级别和任务两列复制到Excel中，如下图所示：
4
在Excel中按ALT+F11,进入VBA编辑器，插入模块，输入如下代码：
核心代码只有两条：
Rows(i).outlinelevel=cells(i,1).value
意思是i行的大纲级别等于第i行第一列的值
Cells(i,2).indentlevel=cells(i,1)-1
意思是第i行第2列的缩进级别等于第i行第1列的值减1，因为大纲级别为1，不需要缩进。
其他解释：
Do while 条件
Loop
是循环语句,意思是当条件满足时，循环运行程序，不满足时，跳出循环，这里是自动判断第一列的行数，当第一列为空时，退出循环。
5
运行代码，返回结果如下：
6
是不是有点别扭，分组按钮在下面显示，Project中是在上面显示的，到此之差一步了，在Excel中点击数据菜单，在分组显示面板里有个右下的箭头，点击出现设置对话框，把明细数的的下方复选框取消，如图所示：
7
最后的结果如下图，和Project中是否一样呢？小伙伴们抓紧操练一下吧！
赞 (0)