利用veb编辑器和公式快速批量建excel表格内容剖析

1、利用veb编写器和公式快速批量建excel表格及内容分析利用veb编写器和公式快速批量建excel表格及内容分析3/3利用veb编写器和公式快速批量建excel表格及内容分析利用veb编写器和公式快速批量建excel表格及内容现代化办公，excel已经是不可以缺少的办公软件。在平常工作中，为了方便管理经常要建立每一个人的电子信息档案，像工会需要建立每一个人的基本情况信息，劳资科需要建立每一个人的身体健康情况信息，培训中心要建立每一个人的培训档案信息，计生办需要单建立每一个人的计划生育信息等等。在这么多信息表中，针对一个人的基本信息情况都是相同的，比方说姓名，性别，身份证号等等，但是因为所属部门

2、不相同，表格形式不相同样因素，每一次都要重新建立。全矿4000多人，分配给每个单位来达成，有的单位人数就高出400人，若是一个个的建立表格，一个个的输入也许粘帖内容，工作量可想而知，相当麻烦。在工作实践的多次探究和应用中发现，可以利用veb编写器和公式快速批量建立excel表格及内容，无论你是几十个人还是几百个人，甚至是上千个人，均可以在十分钟内把所需要人员的信息表及基本内容建立并填写达成，并建立超级链接目录，方便查找。详尽操作步骤以下：第一,我们要利用已有的人员信息总表做简单的办理，把重名的人名做一下区分，比方说有两个叫张三的，我们可以标记为张三1，张三2。如图例：其次，按姓名序次批复制个人

3、信息表并以此人姓名命名工作表。这时我们就要利用veb编写器了。先建立空表格sheet1如图例：尔后按ALT+F11打开编写器，单击视图代码窗口：在窗口中输入以下代码：SubMacro1(Dimi&Application.ScreenUpdating=FalseFori=1TonSheets(Sheet1.CopyAfter:=Sheets(Sheets.CountActiveSheet.Name=Sheet2.Cells(i+2,2.ValueNextiApplication.ScreenUpdating=FalseEndSub其中Fori=1Ton中的“n”代替成你所要建立的工作表数，如图例

4、：并单击上面的三角符号运行。运行后结果如图例：所有工作表建立达成。再次，建立批量超链接。把鼠标点击总表的第一个人名的单元格上，依旧是使用插入模块，输入代码：veb编写器，鼠标单击OptionExplicitSubAutoGenerateHyperlinks(DimnIndexAsIntegerDimoRangeAsRangeFornIndex=3ToSheets.CountSetoRange=Cells(Selection.Row+nIndex-3,Selection.ColumnoRange.Hyperlinks.AddAnchor:=oRange,Address:=,SubAddress:=Sheets(nIndex.Name&!A1,TextToDisplay:=Sheets(nIndex.NameNextEndSub注意，数字3指的是鼠标所在的第三行，若是不是第三行，数字也要跟着相应的变化。单击三角符号运行，结果以下列图：这样就达成了依照姓名序次的批量超链接。最后：输入个人信息表的基本内容。选中所有要填的工作表，在姓名栏中输入公式=MID(CELL(filename,B2,FIND(,CELL(filename+1,255其作用是提取工作表的名称，也就是每一个人的姓名。其他内容，可以使用公式V