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

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