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

利用 编辑器和公式快速批量建表格及内容现代化办公， 已经是不可缺少的办公软件。在日常工作中，为了方便管理经常要建立每个人的电子信息档案，像工会需要建立每个人的基本情况信息，劳资科需要建立每个人的身体健康情况信息，培训中心要建立每个人的培训档案信息，计生办需要单建立每个人的计划生育信息等等。在这么多信息表中，针对一个人的基本信息情况都是相同的，比如说姓名，性别，身份证号等等，但是因为所属部门不同，表格形式不同等因素，每一次都要重新建立。全矿400多0人，分配给每个单位来完成，有的单位人数就超过40人0，如果一个个的建立表格，一个个的输入或者粘帖内容，工作量可想而知，相当麻烦。在工作实践的多次摸索和应用中发现，可以利用 编辑器和公式快速批量建立表格及内容，不管你是几十个人还是几百个人，甚至是上千个人，均可以在十分钟内把所需要人员的信息表及基本内容建立并填写完毕，并建立超级链接目录，方便查找。具体操作步骤如下：首先,我们要利用已有的人员信息总表做简单的处理，把重名的人名做一下区分，比如说有两个叫张三的，我们可以标记为张三1，张三2。如图例：蒙平传人证然息息茬阚？口区审文生帚度T»]IL=；ILixm苔申3422UItmJT^.E但flE中1WM-T3*R\umJIE中Ji衅串中HOC晔IDSMt-^T晔■1E5LW»口HI*SMO-13-L™WI1B5电方wE中、值口心i蚪必moSMi-3-lw-tJU初中访百1邦？ZWr-T-l新V,LEOX,中・MWXZIMWOMXXW3MW-LD-L*HS.K«ri=H中iy6frL0-L讦下珏其次，按姓名顺序批复制个人信息表并以此人姓名命名工作表。这时我们就要利用编辑器了。先建立空表格 如图例：然后按 打开编辑器，单击视图一一代码窗口:在窗口中输入如下代码：Application.ScreenUpdating=FalEndSub其中 n中的“n”替换成你所要建立的工作表数，如图例:并单击上面的三角符号运行。运行后结果如图例：所有工作表建立完成。再次，建立批量超链接。把鼠标点击总表的第一个人名的单元格上，仍然是使用 编辑器，鼠标单击插入模块，输入代码：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指的是鼠标所在的第三行，如果不是第三行，数字也要跟着相应的变化。单击三角符号运行，结果如图所示：某甲■他人班伯息兑表忤月xi?忸㈣支配程度界给9月工精i但lMqHMT乳网1SMJ-t-3WfLE口3LKH1I蛾中4俄炳I.朝4KmmWiflf3imi用17PM钟UFWWWWML^«-4-T出医i£［丽HW4«kglLKA>K4OK<>zwn-u-LifVTIIR|Ll*mJR联中■>^ILriW(WMiHHIf4IT二IMSri酊印■在Met1TIKXSH中，XMZItTWKWKCmam3LBW弟粗中并T*工］这样就完成了按照姓名顺序的批量超链接。最后：输入个人信息表的基本内容。选中所有要填的工作表，在姓名栏中输入公式其作用是提取工作表的名称，也就是每个人的姓名。其