从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中是否一样呢？小伙伴们抓紧操练一下吧！