導讀辦公中經常會遇到這種場景，比如統計員工的個人信息，我們制作出來像下圖這樣的表格，來收集員工的信息。這個過程，考慮到員工個人信息的隱私性，我們只能單獨收集。所....

辦公中經常會遇到這種場景，比如統計員工的個人信息，我們制作出來像下圖這樣的表格，來收集員工的信息。

這個過程，考慮到員工個人信息的隱私性，我們只能單獨收集。

所以，非常麻煩的是，我們要專門找一個人下載所有員工的Excel表、復制、粘貼，最后形成一個類似這樣的表格，非常浪費時間和人力！

太麻煩了！！！

當然，除了復制粘貼，肯定還有其它相對簡單一點的方法：

首先，你要分清工作簿和工作表兩者的區別：一個Excel表格叫做工作簿，每個工作簿中的Sheet叫做工作表。

第一步：多個工作簿合并到一個工作簿

在由多個工作簿合并到一個工作表之前，我們先把多個工作簿合并到一個工作簿。

1、新建一個工作薄，將其命名為合并后的名字，例如叫做：匯總工作簿。

2、打開此工作簿：“匯總工作簿”

3、在“匯總工作簿”下任意一個工作表標簽上點擊右鍵，選擇“查看代碼”。

4、在打開的VBA編輯窗口中粘貼以下代碼：

Sub 工作薄間工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub

5、關閉該VBA編輯窗口

6、在Excel中，開發工具---宏,選“工作薄間工作表合并”,然后“執行”。

7、在打開的對話窗口中，選擇你要合并的多個工作薄。

8、等待運行，就OK了。

9、打開名為“匯總工作簿”的Excel文件，我們就能看到多個其他工作簿以多個Sheet頁的形式合并到了這一個工作簿中。

第二步：多個工作表合成一個工作表

在“匯總工作簿”工作簿中，有很多個Sheet頁，我們的最終目的是把這多個Sheet頁合并到一個Sheet頁的多行。其操作辦法如下：

1、在“匯總工作簿”中，新建一個sheet頁。

2、在新建的sheet標簽上單擊右鍵，選擇“查看代碼”

3、在打開的VBA編輯窗口中粘貼以下代碼：

Sub 合并當前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range("A65536").End(xlUp).Row 1Sheets(j).UsedRange.Copy Cells(X, 1)End IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "當前工作簿下的全部工作表已經合并完畢！", vbInformation, "提示"End Sub

4、關閉該VBA編輯窗口

5、在Excel中，開發工具---宏,選“合并當前工作簿下的所有工作表”,然后“執行”。

6、等待運行，然后整個匯總步驟就完成了。

以上方法是使用VBA匯總表格信息。

比一個個復制粘貼要簡單的多，但是看到那兩個代碼塊也是很讓人頭大。

更簡單的匯總方式？

借助工具！

簡道云的表單功能真的非常適合收集信息！

首先，設計一個表單，列出你所需要收集的信息。

然后，發布給員工填寫。

最后，所有員工的信息，后臺自動匯總數據，管理員隨時可以查看。

如果，你已經用Excel收集完了員工信息，又不想一個個匯總，也可以使用簡道云。

直接將Excel表格導入進表單，簡單拖拽，即可完成匯總！

在表單中收集得到的數據，可通過儀表盤來進行查看、分析和處理。

以上