OFFICE学习资料 | OFFICE资源下载 | OFFICE知识问答      
设为首页
加入收藏
联系站长
  当前位置:Office学院 >> Excel >> Excel中VBA宏 >> 正文

我要提问
利用Excel VBA查找同名学生
[2006年10月27日]  点击数: 【字体: 】【双击滚屏
 
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文件,要使用时,点击“文件/导入”就可以了。

上一篇:Excel中的宏到底是什么东东呢
下一篇:不打开EXCEL文件的前提下读取数据的方法之一
最新文章
利用Excel 的宏功能来做学生成绩的分析处理03/07
利用Excel VBA查找同名学生10/27
如何禁止EXCEL的屏幕刷新10/27
EXCEL离开单元格得时候数值自动*10010/27
不打开EXCEL文件的前提下读取数据的方法之一10/27
Excel中的宏到底是什么东东呢10/27
如何用ado操作Excel - 英文10/27
利用Excel 中的信息创建Windows用户账户10/26
热门文章
相关文章
如何在Word中查找和替换文字
在Word中查找和替换指定的格式
在Word中查找和替换段落标记、分
从菜鸟成为Excel高手 之 IS函数
从菜鸟成为Excel高手 之 If函数
语音校对Excel“文本到语音”功能
在Excel中实现数据的快速录入
WordXP和ExcelXP的使用极限
office知识问答 | office资源下载
备案许可证号: 津ICP备06003561号
版权所有:Office学院 www.officeXY.com
OFFICE学院致力于成就华人社区最受欢迎的office办公软件学习园地;为大家提供word、excel、access、FrontPage、PowerPoint等Office各个系列产品的最全的教程、用法、技巧、方案;并竭力打造最方便的问题解答系统