906 |
不會這七個操作技巧,別說您熟練Excel(七) |
||||
示範檔 |
無 |
範例檔 |
906.XLSX |
結果檔 |
906F.XLSX |
最近面試一些辦公室人員,發現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列存成一個活頁簿。
好啦,今天的分享就到此結束了。
如果有收穫就趕緊點讚打賞吧,哈哈,好任性~
留言列表