您的位置:首页办公软件Excel → 闻欧学堂——重名检索与姓氏频率统计

闻欧学堂——重名检索与姓氏频率统计

时间:2004/10/15 1:06:00来源:本站整理作者:蓝点我要评论(0)

  人数较多(例如500人左右)的机关、团体、单位的人事管理部门,或者户籍管理部门,都会遇到重名的问题。例如笔者所在单位783人就有12人6对重名。在用EXCEL电子表格制作各类管理文件时重名会带来很多问题(例如以姓名作参数用VLOOKUP函数,来查找该人的信息时就会出错)。因此有一个方便快速的重名检索办法就十分必要。(笔者根据经验建议凡用EXCEL电子表格进行办公业务自动化管理的单位,应给每个人设立一个代码,像居民身份证号码一样是终身的唯一的,不要把调离、退休等人员的代码用于新增人员)。

  方法如下:

  先制作空表格:把本文所附的只有2行的表头打开,下拉菜单“编辑”、点击“定位”在引用位置栏输入“B2:H1001”、按“确定”、再下拉菜单“编辑”、点击“填充”、“向下填充”空表格制作完成。(这是大量填充单元格的最快方法)。然后把姓名清单从A2单元格开始拷贝至A列。这样检索程序操作就完成了。用该检索程序,在奔III 733机器上1秒钟内便完成了783人的重名检索。

  下面简单介绍B2至H2单元格的公式,B2单元格“=IF(A2=0,0,SUBSTITUTE(A2," ",""))”中SUBSTITUTE函数是去掉A2单元格中的名字的前、后、中间的空格,C2单元格“=IF(B2=0,0,IF(ISERROR(VLOOKUP(B2,B3:B$1001,1,FALSE))=TRUE,0,ROW(A1)))” 中ISERROR(VLOOKUP(B2,B3:B$1001,1,FALSE))=TRUE,0,ROW(A1))即如在B3到B1001单元格中找不到与B2相同的姓名时为零,否则为从第1个姓名开始计数的行数。意即B3往下有重名时标明行数,否则为零。D2单元格“=LARGE(C:C,ROW(A1))”就是把重名所在行的行数从大到小进行排列。E2单元格“=IF(D2=0,0,INDEX(B$2:B$1001,D2))”就是在B列根据D2单元格标明的行数查找重名的姓名。F2单元格“=IF(E2=0,0,IF(ISERROR(VLOOKUP(E2,E3:E$1001,1,FALSE))=TRUE, ROW(A1),0))”与C2单元格的公式相似,只是根据条件取舍相反。即让已检出的重名只出现一次。G2单元格的公式“=IF(ROW(A1)>COUNTIF(F:F,">0"),0,INDEX(E$2:E$1001,LARGE(F:F,ROW(A1))))” 就是对F列标明的行数,按大到小进行排列并在E列查找重名的姓名。H2单元格的公式“=IF(G2=0,0,COUNTIF(B:B,G2))”就是对B列在G列列出的重名进行计数。下表为工作表的前三行。


  此程序稍作改变便能用来统计姓氏的频数与频率。

  方法如下:

  先制作空表格:把本文所附的只有4行的表头打开,用上述方法填充B4:l1002单元格.再把姓名清单从A3单元格开始拷贝至A列。这样姓氏的频数与频率统计程序操作就完成了。下表为工作表的前五行。

 

  用该程序对笔者所在单位783人统计有160个姓氏,张姓最多有95人出现频率为12.1%。样本太少不具全国姓氏的频数与频率统计上的意义,但似乎张姓为中国第一大姓。B到F列的公式与重名检索工作表的公式极相似,G到K列的公式在笔者的“排序与筛选”一文中有详细说明。

  笔者在奔III 733计算机上制作一张统计10000人姓氏频数与频率的空表需时6分37秒,复制这样一张空表瞬时就能完成,在空表上填充10000人的姓名后统计姓氏频数与频率的时间为2分42秒。填充完后文件大小为4996k。笔者所以测试以上时间是笔者有一个强烈的愿望:把程序用于全国千分之一到万分之一抽样人口即12万到120万人的姓氏频数与频率的统计。笔者在此请求网友支持,提供你能到的某一群体人员的姓氏或姓名样本,和所在省市。笔者每收集到1万个样本便在网站公布一次姓氏频数与频率的统计结果。

  我的Email地址:wenou@public3.bta.net.cn

  点击此处下载示范工作簿

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 Excel撤销工作表保护密excel怎么合并单元格EXCEL条件格式转成普通excel下拉列表制作图解

最新文章 excel如何设置下拉菜单Excel撤销工作表保护密 excel中if函数怎么用?excel中if函数的使用方Excel附件不能打开只能保存解决方法EXCE技巧精粹:十年财务积累的EXCEL技巧excel输入身份证号变成0解决方法

人气排行 Excel撤销工作表保护密码图文教程excel中如何换行?EXCEL数据汇总筛选提取技巧在Excel中如何将文本转换为数字excel2007表格自动调整行高如何让Excel表格的隐藏单元格数据不被删除怎样使用excel制作漂亮的表格出来呢如何使用excel制表