作為計(jì)劃工程師或計(jì)劃管理人員，經(jīng)常需要將任務(wù)從Project導(dǎo)出到Excel中。這是因?yàn)镋xcel是一種通用軟件，可被任何人打開(kāi)和編輯。此外，Excel還具有強(qiáng)大的數(shù)據(jù)處理能力，可以解決Project

作為計(jì)劃工程師或計(jì)劃管理人員，經(jīng)常需要將任務(wù)從Project導(dǎo)出到Excel中。這是因?yàn)镋xcel是一種通用軟件，可被任何人打開(kāi)和編輯。此外，Excel還具有強(qiáng)大的數(shù)據(jù)處理能力，可以解決Project無(wú)法處理的問(wèn)題，如生成S-Curve和進(jìn)行進(jìn)度計(jì)算。然而，當(dāng)將任務(wù)復(fù)制到Excel中時(shí)，分級(jí)顯示往往會(huì)丟失，我們只能手動(dòng)進(jìn)行任務(wù)分組。而對(duì)于任務(wù)數(shù)目較多的情況下，手動(dòng)分組將變得非常繁瑣。所以，我們是否有更簡(jiǎn)單的方法呢？

具體操作步驟

以下是將任務(wù)從Project導(dǎo)出到Excel并保持分級(jí)顯示的具體做法：

1. 在Project中，任務(wù)列表如下圖所示。

2. 在“任務(wù)名稱”列前面增加一列，命名為“大綱級(jí)別”，如下圖所示。

3. 將“大綱級(jí)別”和“任務(wù)名稱”兩列復(fù)制到Excel中，如下圖所示。

4. 在Excel中按下ALT F11，進(jìn)入VBA編輯器，插入一個(gè)新模塊，并輸入以下代碼：

```

Sub GroupTasks()

Dim i As Integer

Dim level As Integer

For i 2 To Cells(, "A").End(xlUp).Row

level Cells(i, 1).Value

If level > 1 Then

Cells(i, 2).IndentLevel level - 1

Else

Cells(i, 2).IndentLevel 0

End If

Next i

End Sub

```

5. 運(yùn)行代碼，結(jié)果如下圖所示。

6. 在Excel中點(diǎn)擊“數(shù)據(jù)”菜單，在“分組顯示”面板中找到右下角的箭頭，點(diǎn)擊后會(huì)出現(xiàn)設(shè)置對(duì)話框。勾選取消“明細(xì)數(shù)”的復(fù)選框，如下圖所示。

7. 最后的結(jié)果如下圖所示，它與Project中的任務(wù)是否一致呢？

總結(jié)

通過(guò)以上步驟，我們可以快速將任務(wù)從Project導(dǎo)出到Excel中并保持分級(jí)顯示。這樣，我們就能夠更方便地進(jìn)行任務(wù)管理和數(shù)據(jù)處理，提高工作效率。希望這個(gè)方法能給計(jì)劃工程師和計(jì)劃管理人員帶來(lái)幫助。