1、利用veb編輯器和公式快速批量建excel表格及內容現代化辦公，excel已經是不可缺少的辦公軟件。在日常工作中，為了方便管理經常要建立每個人的電子信息檔案，像工會需要建立每個人的基本情況信息，勞資科需要建立每個人的身體健康情況信息，培訓中心要建立每個人的培訓檔案信息，計生辦需要單建立每個人的計劃生育信息等等。在這么多信息表中，針對一個人的基本信息情況都是相同的，比如說姓名，性別，身份證號等等，但是因為所屬部門不同，表格形式不同等因素，每一次都要重新建立。全礦4000多人，分配給每個單位來完成，有的單位人數就超過400人，如果一個個的建立表格，一個個的輸入或者粘帖內容，工作量可想而知，相當麻煩

2、。在工作實踐的多次摸索和應用中發現，可以利用veb編輯器和公式快速批量建立excel表格及內容，不管你是幾十個人還是幾百個人，甚至是上千個人，均可以在十分鐘內把所需要人員的信息表及基本內容建立并填寫完畢，并建立超級鏈接目錄，方便查找。具體操作步驟如下：首先,我們要利用已有的人員信息總表做簡單的處理，把重名的人名做一下區分，比如說有兩個叫張三的，我們可以標記為張三1，張三2。如圖例：其次，按姓名順序批復制個人信息表并以此人姓名命名工作表。這時我們就要利用veb編輯器了。先建立空表格sheet1如圖例：然后按ALT+F11打開編輯器，單擊視圖代碼窗口：在窗口中輸入如下代碼：Sub Macro1(D

3、im i&Application.ScreenUpdating = FalseFor i = 1 To nSheets(Sheet1.Copy After:=Sheets(Sheets.CountActiveSheet.Name = Sheet2.Cells(i + 2, 2.ValueNext iApplication.ScreenUpdating = FalseEnd Sub其中 For i = 1 To n中的“n”替換成你所要建立的工作表數，如圖例：并單擊上面的三角符號運行。運行后結果如圖例：所有工作表建立完成。再次，建立批量超鏈接。把鼠標點擊總表的第一個人名的單元格上，仍然是使用ve

4、b編輯器，鼠標單擊插入模塊，輸入代碼：Option ExplicitSub AutoGenerateHyperlinks(Dim nIndex As IntegerDim oRange As RangeFor nIndex = 3 To Sheets.CountSet oRange = Cells(Selection.Row + nIndex - 3, Selection.ColumnoRange.Hyperlinks.Add Anchor:=oRange, Address:=, SubAddress:=Sheets(nIndex.Name & !A1, TextToDisplay:=Sheets(nIndex.NameNextEnd Sub注意，數字3指的是鼠標所在的第三行，如果不是第三行，數字也要跟著相應的變化。單擊三角符號運行，結果如圖所示：這樣就完成了按照姓名順序的批量超鏈接。最后：輸入個人信息表的基本內容。選中所有要填的工作表，在姓名欄中輸入公式=MID(CELL(filename,B2,FIND(,CELL(filename+1,255其作用是提取工作表的名稱，也就是每個人的姓名。其他內容，可以使用公式VLOO