辦公中經(jīng)常會遇到這種場景，比如統(tǒng)計員工的個人信息，我們制作出來像下圖這樣的表格，來收集員工的信息。這個過程，考慮到員工個人信息的隱私性，我們只能單獨收集。所以，非常麻煩的是，我們要專門找一個人下載所有員工的Excel表、復(fù)制、粘貼，最后形成一個類似這樣的表格，非常浪費時間和人力！太麻煩了！！！當(dāng)然，除了復(fù)制粘貼，肯定還有其它相對簡單一點的方法：首先，你要分清工作簿和工作表兩者的區(qū)別：一個Excel表格叫做工作簿，每個工作簿中的Sheet叫做工作表。第一步：多個工作簿合并到一個工作簿在由多個工作簿合并到一個工作表之前，我們先把多個工作簿合并到一個工作簿。1、新建一個工作薄，將其命名為合并后的名字，例如叫做：匯總工作簿。2、打開此工作簿：“匯總工作簿”3、在“匯總工作簿”下任意一個工作表標(biāo)簽上點擊右鍵，選擇“查看代碼”。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 Sub5、關(guān)閉該VBA編輯窗口6、在Excel中，開發(fā)工具---宏,選“工作薄間工作表合并”,然后“執(zhí)行”。7、在打開的對話窗口中，選擇你要合并的多個工作薄。8、等待運行，就OK了。9、打開名為“匯總工作簿”的Excel文件，我們就能看到多個其他工作簿以多個Sheet頁的形式合并到了這一個工作簿中。第二步：多個工作表合成一個工作表在“匯總工作簿”工作簿中，有很多個Sheet頁，我們的最終目的是把這多個Sheet頁合并到一個Sheet頁的多行。其操作辦法如下：1、在“匯總工作簿”中，新建一個sheet頁。2、在新建的sheet標(biāo)簽上單擊右鍵，選擇“查看代碼”3、在打開的VBA編輯窗口中粘貼以下代碼：Sub 合并當(dāng)前工作簿下的所有工作表()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 "當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！", vbInformation, "提示"End Sub4、關(guān)閉該VBA編輯窗口5、在Excel中，開發(fā)工具---宏,選“合并當(dāng)前工作簿下的所有工作表”,然后“執(zhí)行”。6、等待運行，然后整個匯總步驟就完成了。以上方法是使用VBA匯總表格信息。比一個個復(fù)制粘貼要簡單的多，但是看到那兩個代碼塊也是很讓人頭大。更簡單的匯總方式？借助工具！簡道云的表單功能真的非常適合收集信息！首先，設(shè)計一個表單，列出你所需要收集的信息。然后，發(fā)布給員工填寫。最后，所有員工的信息，后臺自動匯總數(shù)據(jù)，管理員隨時可以查看。如果，你已經(jīng)用Excel收集完了員工信息，又不想一個個匯總，也可以使用簡道云。直接將Excel表格導(dǎo)入進(jìn)表單，簡單拖拽，即可完成匯總！在表單中收集得到的數(shù)據(jù)，可通過儀表盤來進(jìn)行查看、分析和處理。以上