錦子老師

最近面試一些辦公室人員，發現99%的應聘人員在履歷都寫者「熟練使用 WINDOWS、OFFICE」。

當面試時問：Excel熟練到什麼程度。

面試者答：…還好吧！上課時學過。

當面試時問：那要怎麼快速核對二個表格中重複的數據。

面試者答：10秒、20秒、30秒(最後空氣中突然安靜。

好吧，作為曾經也冒充過「大神」的小白鼠，錦子老師也知道大家心裡苦啊，老師教的沒記住，檢定考試考完就忘了，平時也用不到，履歷上本來就沒啥可寫，只能勉強拿「熟練使用OFFICE」湊湊版面。

所以，這次錦子老師要給大家分享7個Excel操作技巧，幫助大家告別小白鼠。

7、快速拆分數據

在Excel中經常會遇到將一個活頁薄拆分為多個活頁薄，或者將多個活頁薄拆分為多個Excel表格的情況，這裡給大家介紹最快捷的辦法就是VBA。

（——什麼？不會？）

（——沒關係啊，代碼給你啦，直接套用就行。）

（——代碼在哪裡？）

（——當然是老規矩，看完本篇文章啦！）

一個活頁簿變為多個活頁薄，連活頁簿名稱都直接以儲存格內容命名。

多個活頁簿變為多個Excel表格，Excel檔案名稱是以活頁簿名稱命名的。

步驟1：按ALT+F11鍵，開啟VBA視窗。

步驟2：點取「插入 > 模組」指令，新增一張空白模組表。

步驟3：輸入下列程式碼。

Sub chaifen()

Dim i, r As Integer

Dim arr As Variant

Dim wb As Workbook

Dim sh As Worksheet

Set sh = ThisWorkbook.Worksheets(1)

Application.SheetsInNewWorkbook = 1

arr = sh.[a1].CurrentRegion

For i = 2 To UBound(arr) Step 50

n = n + 1

Set wb = Workbooks.Add

sh.Rows(1).Copy wb.Worksheets(1).[a1]

For r = i To i + 49

wb.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(1, UBound(arr, 2)) = Application.Index(arr, r, 0)

Next r

wb.SaveAs Filename:=ThisWorkbook.Path & "\" & n & ".xls"

wb.Close

Next i

End Sub

步驟4：按ALT+TAB鍵，回到活頁簿。

步驟5：點取「開發人員 > 巨集」圖示，如下圖所示。

步驟6：在【巨集】對話方塊，點取「CHAIFEN」巨集項目，再點取「執行」鈕，這時會自動將工作表中資料每50列存成一個活頁簿。

好啦，今天的分享就到此結束了。

如果有收穫就趕緊點讚打賞吧，哈哈，好任性~