1.问题的提出
每个学期都会出现同名同姓学生报到而发生一些张冠李戴的事情,给学校的一些管理带来了一定的麻烦。本人曾尝试使用Excel的既有功能解决这个问题,但都没有收到很好的效果,于是考虑使用VBA。
2.解决问题的目的
假设图1是学生的名单,然后从学生名单中提取出同名同姓学生的姓名及班别,复制到Sheet2中(图2),学校可以通过Sheet2的信息,辨别出共有多少同名同姓的学生及其所在的班级。
3.解决思路
使用CountIf()函数对学生姓名进行判断,如果CountIf()函数的值大于1,则表示该姓名有重复,然后将其复制到表Sheet2中。
4.解决问题的办法
点击“工具→宏→VisualBasic编辑器”,进入VBA开发环境,点击“插入→模块”,这时出现代码窗口,在其中输入下列代码:
Subtmtx()
Sheets("sheet2").[a1]="班别"
Sheets("sheet2").[b1]="姓名"
a=sheets("sheet1").[a1].CurrentRegion.Rows.Count‘判断学生名单的行数。
Fori=2Toa
k=Sheets("sheet2").[a1].CurrentRegion.Rows.Count+1
IfApplication.WorksheetFunction.CountIf([c1:c65530],Cells(i,3))>1Then
Sheets("sheet2").Cells(k,2)=Sheets("sheet1").Cells(I,3)
Sheets("sheet2").Cells(k,1)=Sheets("sheet1").Cells(I,2)
EndIf
‘使用CountIf()函数对每个学生名字进行判断,如果CountIf()值大于1,则将其复制到Sheet2。
Next
该文章内容来源于网络,由WPS之家(wps.qiangguoshuo.com)收集,希望能为广大朋友提供帮助。
Sheets("sheet2").[a1].CurrentRegion.SortKey1:=Sheets("sheet2").[b1],Order1:=xlAscending,Header:=xlGuess
‘对复制到Sheet2的内容以“姓名”作为关键字排序,从而实现同名同姓学生的姓名排在一起,以方便查阅。
IfSheets("sheet2").[a2]=""Then
MsgBox“无同名同姓学生!”,“报告”
EndIf
‘如果没有同名同姓的学生,则跳出报告信息窗口。
Sheets("sheet2").Select
Endsub
为了便于以后每个学期都能使用该程序,我们可这样做:点击“文件/导出”,将其保存为.bas文件,要使用时,点击“文件/导入”就可以了
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!