close

906

不會這七個操作技巧,別說您熟練Excel()

示範檔

範例檔

906.XLSX

結果檔

906F.XLSX

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

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

面試者答:還好吧!上課時學過。

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

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

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

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

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列存成一個活頁簿。

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

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


arrow
arrow
    創作者介紹

    錦子老師 發表在 痞客邦 留言(0) 人氣()