1、在EXCEL中建立任务清单和WBS层级
2、打开PROJECT，在任务名称左边插入“大纲级别”，如下图所示：
3、在EXCEL中选择A2：B17区域，复制
在PROJECT中选择，第一行，大纲级别，粘贴
4、随便插入一个数字列，如数字1
5、将层级代码复制到数字1列，如下图所示：
6、Alt+F11 打开VBA界面，注意是在PROJECT中打开VBA，双击thisproject,在代码窗口输入下列代码。
Sub wbslevel()
Dim t As Task
For Each t In Tasks
t.outlinelevel = t.Number1
Next
End Sub
7、将鼠标放在代码中间任意位置，按F5 运行，结果如下：
