Attention: 本分享基于win7系統(tǒng)和office 2013。

?

由于需要整理信息，某單位M需要各學(xué)院補(bǔ)充一些數(shù)據(jù)。為了保密，單位M希望讓每個(gè)學(xué)院僅補(bǔ)充自己的數(shù)據(jù)，不影響其他學(xué)院的信息補(bǔ)充工作。為此，單位M需要將原有數(shù)據(jù)表（如圖1）的數(shù)據(jù)分成不同的excel文件分發(fā)給各個(gè)學(xué)院。

圖1顯示了一張21行8列的數(shù)據(jù)表。編號(hào)列、項(xiàng)目名稱列和立項(xiàng)時(shí)間列中空白的內(nèi)容含義如下：比如，5-8行中A、B、C列空白，表示5-8行的A、B、C列分別與第4行的A、B、C列相同。單位M需要各學(xué)院補(bǔ)充F至H列缺失的信息。

?

在數(shù)據(jù)處理開始之前，務(wù)必要將A、B、C列重復(fù)的數(shù)據(jù)補(bǔ)充完整得到圖2——具體原因見(jiàn)圖29。

選中數(shù)據(jù)區(qū)域，點(diǎn)擊“插入”->”數(shù)據(jù)透視表”。在“創(chuàng)建數(shù)據(jù)透視表”窗口最好選擇將數(shù)據(jù)透視表放入新工作表，得到圖5界面。

將數(shù)據(jù)透視表字段依次逐個(gè)添加至圖5右下角“行”區(qū)域。得到圖7。

顯然圖7的展示形式并不如圖2直接、美觀，因此需要將圖7調(diào)整為類似圖2的顯示形式。

如圖8，選中數(shù)據(jù)透視表中任意一個(gè)單元格，單擊鼠標(biāo)右鍵，選擇“數(shù)據(jù)透視表選項(xiàng)”，選擇“顯示”，在“經(jīng)典數(shù)據(jù)透視表布局”前的框中打勾，點(diǎn)確定，生成圖9的界面。

Tips：注意圖9和圖10，你就會(huì)明白為什么之前我會(huì)說(shuō)“將數(shù)據(jù)透視表字段依次逐個(gè)添加至圖5右下角“行”區(qū)域。”因?yàn)辄c(diǎn)擊的順序和“行”區(qū)域顯示的順序一致，也和圖9與圖10中各列的位置一致。

我們看圖11的界面。在工具欄“數(shù)據(jù)透視表工具”中選擇“設(shè)計(jì)”。

在“分類匯總”中選擇“不顯示分類匯總”，得到圖12

在“總計(jì)”中選擇“對(duì)行和列禁用”，得到圖13

在“報(bào)表布局”中選擇“重復(fù)所有項(xiàng)目標(biāo)簽”，得到圖14.

圖14中空值的字段顯示“空白”，這反倒讓我們難以只直觀看出哪些地方是需要我們補(bǔ)充的，為此需要稍作處理。

利用“替換”功能——快捷鍵“Ctrl+H”，將“（空白）”改為“空格”，得到圖16

做完以上這些步驟才算完成了準(zhǔn)備工作，下面進(jìn)入正題。

我們先將圖16中這一個(gè)sheet根據(jù)立項(xiàng)單位劃分為不同sheet。如圖17將“立項(xiàng)單位”字段拖入數(shù)據(jù)透視表篩選器，在A1立項(xiàng)單位那里的下拉箭頭選擇“選擇多項(xiàng)”，點(diǎn)擊確定。

如圖18，在“分析”中點(diǎn)擊“選項(xiàng)”，選擇“顯示報(bào)表篩選頁(yè)”，點(diǎn)擊確定，生成了不同學(xué)院的sheet，如圖20.

下面將這一個(gè)excel中的多個(gè)sheet拆分為不同excel。按“Alt+F11”，彈出如圖21的VB窗口。

點(diǎn)擊VB窗口的“插入”，選擇“模塊”，復(fù)制如下代碼并粘貼至新出現(xiàn)的窗口中（如圖23），點(diǎn)擊保存，選擇“否”。

Sub SaveSeparately0

Dim sht As Worksheet

Application.ScreenUpdating = False

ipath = ThisWorkbook.Path &" '

For Each sht In Sheets

sht.Copy

ActiveWorkbook.SaveAs ipath & sht.Name

ActiveWorkbook.Close

Next

Application.ScreenUpdating = True

End Sub

選擇合適的位置保存新生成的excel（注意保存位置的名稱會(huì)成為新生成sheet的命名前綴，如保存在“新建文件夾”，新生成的sheet名稱為“新建文件夾+sheet名稱”）。點(diǎn)擊運(yùn)行按鈕（如圖26）生成多個(gè)sheet。

效果如圖27。

由于無(wú)法在數(shù)據(jù)透視表中直接編輯數(shù)據(jù)，所以需要復(fù)制“數(shù)據(jù)透視表”，“選擇性粘貼”為“數(shù)值”，即可編輯。

填一個(gè)上文挖的坑~~~

Tips：若在處理數(shù)據(jù)之前未將重復(fù)數(shù)據(jù)進(jìn)行補(bǔ)充——比如圖29中顯示的事未補(bǔ)全“項(xiàng)目名稱”這一列時(shí)的情況，則會(huì)導(dǎo)致出現(xiàn)較多“空白”項(xiàng)，顯示不夠清楚且需要后續(xù)再進(jìn)行調(diào)整，不夠便捷。

END