概要：利用Excel VBA查找同名学生 1．问题的提出 每个学期都会出现同名同姓学生报到而发生一些张冠李戴的事情，给学校的一些管理带来了一定的麻烦。本人曾尝试使用excel的既有功能解决这个问题，但都没有收到很好的效果，于是考虑使用vba。 2．解决问题的目的 假设图1是学生的名单，然后从学生名单中提取出同名同姓学生的姓名及班别，复制到sheet2中（图2），学校可以通过sheet2的信息，辨别出共有多少同名同姓的学生及其所在的班级 。 3． 解决思路 使用countif()函数对学生姓名进行判断，如果countif()函数的值大于1，则表示该姓名有重复，然后将其复制到表sheet2中。 4．解决问题的办法 点击“工具→宏→visual basic编辑器”，进入vba开发环境，点击“插入→模块”，这时出现代码窗口，在其中输入下列代码： sub tmtx() sheets("sheet2").[a1] = "班别" sheets("sheet2&
利用Excel VBA查找同名学生,标签：普通教育资料,http://www.67jx.com利用Excel VBA查找同名学生
1．问题的提出
每个学期都会出现同名同姓学生报到而发生一些张冠李戴的事情，给学校的一些管理带来了一定的麻烦。本人曾尝试使用excel的既有功能解决这个问题，但都没有收到很好的效果，于是考虑使用vba。
2．解决问题的目的
假设图1是学生的名单，然后从学生名单中提取出同名同姓学生的姓名及班别，复制到sheet2中（图2），学校可以通过sheet2的信息，辨别出共有多少同名同姓的学生及其所在的班级 。
3． 解决思路
使用countif()函数对学生姓名进行判断，如果countif()函数的值大于1，则表示该姓名有重复，然后将其复制到表sheet2中。
4．解决问题的办法
点击“工具→宏→visual basic编辑器”，进入vba开发环境，点击“插入→模块”，这时出现代码窗口，在其中输入下列代码：
sub tmtx()
sheets("sheet2").[a1] = "班别"
sheets("sheet2").[b1] = "姓名"
a=sheets("sheet1").[a1].currentregion.rows.count ‘判断学生名单的行数。
for i = 2 to a
k = sheets("sheet2").[a1].currentregion.rows.count + 1
if application.worksheetfunction.countif([c1:c65530], cells(i, 3)) > 1 then
sheets("sheet2").cells(k, 2) = sheets("sheet1").cells(i, 3)
sheets("sheet2").cells(k, 1) = sheets("sheet1").cells(i, 2)
end if
‘使用countif()函数对每个学生名字进行判断，如果countif()值大于1，则将其复制到sheet2。
next
sheets("sheet2").[a1].currentregion.sort key1:=sheets("sheet2").[b1], order1:=xlascending, header:=xlguess
‘对复制到sheet2的内容以“姓名”作为关键字排序，从而实现同名同姓
学生的姓名排在一起，以方便查阅。
if sheets("sheet2").[a2] = "" then
msgbox“无同名同姓学生！”，“报告”
end if
‘如果没有同名同姓的学生，则跳出报告信息窗口。
sheets("sheet2").select
end sub
为了便于以后每个学期都能使用该程序，我们可这样做：点击“文件/导出”，将其保存为.bas文件，要使用时，点击“文件/导入”就可以了。
开展20**年度优秀员工评选活动通知
集团各部门、所辖各企业：20**年，集团全体员工在集团公司的领导下，弘扬求知、求实、创优、创新精神，力精图志，艰苦工作，为集团的持续发展作出了自巳的贡献，拥现出了一大批优秀员工。为了弘扬企业文化，鼓励、表彰先进，构建人人创先争优，争为集团发展作贡献的良好氛围，集团公司决定开展20 阅读全文 >>
党性分析材料(法院)
在保持共产党员先进性教育活动中，通过学习必读篇目，对照党章有关规定和两个务必以及八个坚持、八个反对要求，认真反思了自己在党性方面存在的问题，我深刻认识到，自己与新时期合格党员的要求还有很大差距。一、存在的问题(一)在理想、信念方面，自己存在的主要问题是缺乏责任意识和政治敏锐性。在 阅读全文 >>
办公室落实党风廉政建设责任制汇报材料
办公室贯彻落实党风廉政建设责任制汇报材料20**年，办公室紧紧围绕工作中心，以党风廉政建设为抓手，以“业务建设年”活动为载体，不断强化领导班子和全体职工的思想作风、工作作风，筑牢防线，内强素质，外树形象，有力地保证了县委决策的科学制定和顺利实施，得到了领导和各方面的充分肯定。具体 阅读全文 >>
广东省节能减排综合性工作方案
为贯彻落实《国务院关于印发节能减排综合性工作方案的通知》（国发〔20**〕15号）精神，加快建设资源节约型、环境友好型社会，确保实现“十一五”期间节能减排目标，推动全省经济社会又好又快发展，结合我省实际，制订本方案。一、进一步明确我省节能减排的主要目标和总体要求（一）主要目标。到 阅读全文 >>
设立中外合资经营企业合同（金融1）
目录１）总则８）技术训练２）资本９）确立银行设施３）出资额转让及资本更改１０）利润４）董事会１１）财务会计与审计５）经营管理机构１２）税务６）业务１３）保险７）银行分支和附属机构１４）银行职员１５）审批及注册１６）合同有效期１７）终止与清算１８）不可抗力１９）保密及其他２０）调解 阅读全文 >>