Excel作為一個具有強大的數(shù)據(jù)處理的辦公軟件，對于白領(lǐng)一族來說，使用頻率應(yīng)該較高。在處理數(shù)據(jù)過程中，您是否碰到過清單之類匯總的情況，就是將同一個工作簿中的所有工作表的內(nèi)容合并到一個工作表中。對于不會取巧的朋友，可能就是一個表一個表的復(fù)制，然后粘貼拼湊在一塊，若碰到表格數(shù)量不多的情況，這種方法還好，若是碰到工作表數(shù)量龐大，例如50個工作表，100個工作表......這種方法就很雞肋。今天本篇以Excel2013為例，教大家如何一鍵實現(xiàn)所有工作表合并到新工作表中，同樣適用于Excel其他版本，碰到細微差異，可以適當調(diào)整代碼。

教程將內(nèi)容分成三部分：第一部分是新建一個匯總的工作表，并重新自定義命名；第二部分是逐一將各個工作表復(fù)制粘貼到匯總工作表中；第三部分為提示，即當合并工作完成后彈出提示。具體操作如下：

打開工作簿，在工作表標簽中會顯示包含的工作表名稱，教程以下圖中三個工作表為例，分別是Sheet1，Sheet2，Sheet3.按下組合鍵Alt+F11即可從Excel工作界面切換到VBA界面，在VBA窗口單擊菜單欄中的插入，找到模塊命令，單擊該命令即可創(chuàng)建一個新的模塊窗口，在模塊窗口復(fù)制粘貼以下代碼：

Sub Comb()

Dim i%

On Error Resume Next

Sheets(1).Select

Worksheets.Add '新建一個工作表

Sheets(1).Name = "匯總工作表" '對新建工作表重命名

For i = 2 To Sheets.Count 'For循環(huán)，遍歷所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '選擇活動工作表數(shù)據(jù)區(qū)域

Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘貼到匯總工作中

Next

MsgBox ("工作表已全部合并到指定工作表中！") '彈窗提示合并完成

End Sub

從事互聯(lián)網(wǎng)行業(yè)的小編們，經(jīng)常會遇到一個問題，就是導(dǎo)出多個Excel表格數(shù)據(jù)，經(jīng)常是多個數(shù)據(jù)合并到一個excel表格里來做數(shù)據(jù)分析，那么如何快速的合并excel表格呢？

1、把所有excel文件放在同一個文件夾里。如下圖：

2、打開匯總excel，并右鍵單擊sheet1，找到“查看代碼”，單擊進去。進去之后就看到了宏計算界面。如圖所示：

3、然后我們把下面代碼復(fù)制進去，然后找到工具欄上面的“運行”下的“運行子過程/用戶窗體”，代碼如下，如圖所示：

Sub 合并當前目錄下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

運行幾十秒鐘就OK啦！如果表格數(shù)據(jù)過多的話，時間會久一點。

合并方法如下：

把需要合并的excel表格文檔放到同一個文件夾里

新建一個“數(shù)據(jù)合并.xlsx“文檔

打開“數(shù)據(jù)合并.xlsx“文檔，在”Sheet1“工作表的地方右鍵→查看代碼（快捷鍵：“Alt+F11”，盡量選用快捷方式）進入到Microsoft Visual Basic for Applications窗口

雙擊工程資源管理器里面的sheet1，在右側(cè)的代碼區(qū)粘貼如下代碼：Sub 合并當前目錄下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("A1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

運行→運行子過程/用戶窗體（或者直接點擊運行按鈕，快捷鍵：F5），即可合并所有Excel表格到”數(shù)據(jù)合并.xlsx“文檔的Sheet1工作表里面

完成Excel表格的合并。

（本文內(nèi)容由百度知道網(wǎng)友lvrqing貢獻）

想不想讓你的表格在別人看到第一眼就發(fā)出這樣的贊美：哇，好整齊，好漂亮！其實這個很容易實現(xiàn)哦，不信？跟著靈素來一場“表格美化”之旅吧。

在工作中，下面這類產(chǎn)品銷售統(tǒng)計表很常見，那么我們?nèi)绾螌@個表格進行快速美化呢？

01

首先使用“套用表格樣式”，讓整個表格瞬間打上底妝

選中表格區(qū)域，【開始】選項卡下點擊 “套用表格格式”，在下拉框中選擇所喜歡的表格樣式，在彈出的窗口中默認選擇的數(shù)據(jù)區(qū)域，點擊確定。這時表格已經(jīng)畫上底妝，看起來有點味道了。

如果你覺得表格首行帶有篩選標簽不是很喜歡，可以點擊【數(shù)據(jù)】選項卡下的“篩選”將其取消。

02

利用“

單元格自定義格式

”給表格“描眉畫唇”

接下來，底妝畫好了，我們需要進行“眉毛”和“嘴唇”等局部的進一步修飾。

針對表格內(nèi)容，我們進行字體、對齊等調(diào)整。比如把表格標題字體改成黑體，表格內(nèi)文字字體改成微軟雅黑，數(shù)據(jù)采用Arial，合計列里面的數(shù)據(jù)加粗，數(shù)據(jù)統(tǒng)一右對齊，無線框等。

03

突出重點，提升表格可視性

因為是產(chǎn)品銷售統(tǒng)計表，半年度合計結(jié)果可作為重點突出，為了提升表格可視性，比較直觀地顯示各種產(chǎn)品半年度的銷量情況對比，可采用數(shù)據(jù)條樣式。

如此簡單三步，是不是讓表格有了不錯的 “妝容修飾”，讓人眼前一亮。當然，Excel 表格還有很多更深層次的美化手段，比如各類圖表、切片器、透視表的運用等。

泰來是一家業(yè)務(wù)輻射全球的食品分銷公司，目前公司有10多名銷售人員，銷售100多個產(chǎn)品品牌，在全球各地有100多家客戶。

近來，泰來公司正在著手制定食品分銷制度，而制定制度的依據(jù)來自于兩家銷售分公司的銷售交易歷史記錄的數(shù)據(jù)。

集團秘書沒有足夠的時間把Excel數(shù)據(jù)導(dǎo)入數(shù)據(jù)庫中，所以這些數(shù)據(jù)存儲在獨立的一張張Excel表格中，而不是放在公司的數(shù)據(jù)庫里面。

而原始的Excel報表，雜亂無序，整理起來十分困難，這讓集團秘書犯難了？

今天，魔方君就教大家一個新技能，簡簡單單，就能讓復(fù)雜的Excel報表，實現(xiàn)華麗麗的變身—高顏值可視化的動態(tài)分析看板！

那Excel表格是如何華麗麗的變身的呢？

打開數(shù)據(jù)設(shè)計器，建立模型名稱：泰來demo

2.添加數(shù)據(jù)源，選擇Excel數(shù)據(jù)源；

3.搭建表間關(guān)系：通過簡單的拖拉拽方式，將字段進行關(guān)聯(lián)；

4.構(gòu)建，發(fā)布到本地的ElastiCube服務(wù)器；

5.打開報表頁面設(shè)計器，進行可前臺報表頁面的開發(fā)；

6.大功告成（一疊Excel報表，變身成了一張可視化的動態(tài)分析看板~~）

通過這張動態(tài)可視化的分析看板：

我們可以直接查看到：

1.全球各類產(chǎn)品的銷售情況，包括月度、年累計、去年同期銷量和銷售額，以及月度銷售趨勢；

2.并通過交互式操作——鉆取和聯(lián)動，自助式地動態(tài)查詢每類產(chǎn)品的具體產(chǎn)品名稱的銷售情況，以及分析各類/各具體產(chǎn)品的消費客戶所在國家、城市等信息，進而分析各銷售人員的銷售情況。

高效地利于泰來企業(yè)制定合理的全球銷 售制度，合理規(guī)劃產(chǎn)品市場布局規(guī)模， 完善KPI考核機制。

使用快捷鍵組合“Win+R”調(diào)出運行命令框，鍵入 regedit.exe，回車，打開注冊表編輯器。

（若彈出用戶賬戶控制窗口，請允許以繼續(xù)）

小易提示: 如果注冊表修改不當可能會出現(xiàn)嚴重的問題。因此，請確保您認真執(zhí)行這些步驟。為增加保護，請修改之前備份注冊表。

定位到注冊表鍵值：HKEY_CLASSES_ROOT\Excel.Sheet.12\shell\Open

右擊，選擇“導(dǎo)出”。在修改之前，我們先為其做一下備份。

做好備份后，就可以大膽修改了。

修改 Open\command 值。

展開“Open\command”，在右邊細節(jié)窗口:

雙擊打開“默認”，將其鍵值改為"C:\Program Files(x86)\Microsoft Office\Office14\EXCEL.EXE" "%1"

（如果您使用的是 Office 2007, 把 Office 14 改為 Office 12。另外，千萬不要丟了引號）

（Win10系統(tǒng)顯示為："C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE"/e）

然后，雙擊 command，將鼠標光標移到數(shù)值數(shù)據(jù)最后，用"%1"代替/dde

（如果使用的是 Office 2007， 用"%1"代替/e）

重命名 Open\ddeexec。

選中“ddeexec”，右擊，選擇“重命名”。為其取個新名字，例如“ddeexec2”。

用相同的辦法，對 HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open 進行備份和修改。

現(xiàn)在是不是能在單獨的窗口中打開 Excel 文件呢？

設(shè)置多個excel表格在桌面獨立顯示，通過excel“視圖”選項操作即可實現(xiàn)，具體操作如下：

1.以兩個Excel文件在桌面顯示為例，首先找到“視圖”選項卡，緊接著，在窗口中找到“全部重排”。

2.這時，彈出“重排窗口”，有多種排列方式供選擇，例如水平并排、垂直并排、層疊等等，這些窗口共用Excel的菜單欄，只是表格區(qū)域不同而已。

3.以水平并排顯示為例，當“4月投遞記錄”為黑色時，表示當前的活動表格為“4月投遞記錄”，而此時“5月投遞記錄”為灰色狀態(tài)，非活動狀態(tài)。

（本文內(nèi)容由百度知道網(wǎng)友lnf564貢獻）

1.使用快捷鍵組合“Win+R”調(diào)出運行命令框，鍵入 regedit.exe，回車，打開注冊表編輯器。

2.若彈出用戶賬戶控制窗口，請允許以繼續(xù)。

3.定位到注冊表鍵值：HKEY_CLASSES_ROOT\Excel.Sheet.12\shell\Open右擊，選擇“導(dǎo)出”。在修改之前，我們先為其做一下備份。

做好備份后，就可以大膽修改了。

4.修改 Open\command值。展開“Open\command”，在右邊細節(jié)窗口: 雙擊打開“默認”，將其鍵值改為"C:\Program Files\Microsoft Office\Office14\EXCEL.EXE" "%1"

（如果使用的是 Office 2007, 把 Office 14 改為 Office 12。另外，千萬不要丟了引號）。

5.然后，雙擊 command，將鼠標光標移到數(shù)值數(shù)據(jù)最后，用"%1"代替/dde（如果使用的是 Office 2007， 用"%1"代替/e）

6.重命名 Open\ddeexec。選中“ddeexec”，右擊，選擇“重命名”。為其取個新名字，例如“ddeexec2”。

7.用相同的辦法，對 HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open進行備份和修改。

（本文內(nèi)容由百度知道網(wǎng)友貢獻）

方法1:  使用Office2010自帶功能,不是很好用:

       1.1 方法: 點擊【文件】——【選項】——【高級】——【顯示】,找到"在任務(wù)欄中顯示所有窗口", 把鉤去掉, 就可以多個excel文件在一個窗口里面了.

    1.2 效果: 通過菜單欄的【視圖】——【切換窗口】可以選擇不同的窗口.

方法2: 使用Office Tab Enterprise插件,實現(xiàn)單窗口多標簽文檔瀏覽

    2.1    去百度網(wǎng)盤下載該軟件,已整理好,含注冊碼,地址如下 http://pan.baidu/s/1qWlVpEk

    2.2     安裝好插件, 并填好注冊碼后, 效果如下圖:

更多具體內(nèi)容可參考:

http://jingyan.baidu/article/ff42efa91847bbc19e2202f3.html

（本文內(nèi)容由百度知道網(wǎng)友貢獻）

Excel的分身術(shù)：在多個窗口中查看同一個工作表

大家好，我是@愛玩電腦。今天給大家講講如何將辦公軟件Excel的同一個工作表內(nèi)容在兩個及以上的窗口中顯示，方便我們查看工作表的不同部分，進行數(shù)據(jù)核對、處理。我們前面講過一個窗口拆分功能：天涯若比鄰：Office辦公軟件的窗口拆分功能方便核對數(shù)據(jù)，這次講的是另外一種方法。

概況：演示用的辦公軟件為Excel2007。我們的表格是這個樣子的，表格的文件名是"新建窗口示例表格"：

一、新建窗口

點擊"視圖"/"新建窗口"。好像沒什么變化？實際上你可以看到表格的名字已經(jīng)變成"新建窗口示例表格：2"，

同時在屏幕下方的工具欄上可以看到已經(jīng)是2個Excel文件窗口了。你還可以新建更多的窗口，但是好像更多的窗口也不太實用了。

二、排列窗口

點"視圖"/"全部重排"，然后選擇排列方式（我一般選"垂直并排"）

就可以發(fā)現(xiàn)兩個相同內(nèi)容的表格出現(xiàn)了。

三、處理數(shù)據(jù)

我們在任何一個窗口里面進行拖動，不會影響到另外一個窗口；我們在任何一個窗口進行數(shù)據(jù)修改，另外一個窗口都是同步修改。

好吧，辦公軟件Excel的新建窗口功能就講到這里。文章由@愛玩電腦創(chuàng)作，轉(zhuǎn)載請注明出處。