利用Excel VBA查找同名学生

时间:2013-08-23 整理:docExcel.net
分享到:

[请问,WPS里面,怎么使用文字查找文件]我手里有一段备份过的文字,但是文件不见了,请问怎么查找这份文件?WPS文字的查找快捷键和Word一样的,都是可以使用Ctrl+F,来进行调出查找命令,输入关键词来定位。

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文件,要利用时,点击“文件/导入”就可以了。

(作者:窦毅)

Word也能生存网上资料 ↑上一篇文章 让Excel图表更具魅力↓下一篇文章

本文地址:https://www.docexcel.net/show/3_1350.html

以下为关联文档:

微信通过搜索添加好友的记录在哪个文件查找我是通过qq搜索的 看了网上的很多答案 还是不清楚具体是那一个文件的那一串数字代表的是我搜索的qq 或者手机号打开手机,在主界面找到并“进入微信“点开微信里面的“通讯录...

教你利用powershell找回Win10应用商店应用商店是微软系统下的一个重要功能,不仅可以帮助我们下载应用程序,还可以共享查看文档,观看影片等。如果win10应用商店不见了怎么办呢?别担心,接下来,我就教大...

Word2013中如何利用橡皮擦工具实现合并单元格Word2013中如何利用橡皮擦工具实现合并单元格?其实方法很简单,下文小编就为大家带来详细步骤,感兴趣的朋友可以看看...

excel表格怎么利用VBA代码插入交叉矩形图excel表格怎么利用VBA代码插入交叉矩形图?excel表格中想要绘制交叉的矩形图,该怎么绘制这个图形呢?我们可以使用vba代码来绘制,下面我们就来看看详细的...

excel表格怎么利用VBA代码快速制作一份通讯录excel表格怎么利用VBA代码快速制作一份通讯录?excel表格中想要利用vba代码快速制作一份通讯录,该怎么制作呢?下面我们就来看看详细的教程,需要的朋友可...

excel怎样合并同名并相加数量这篇文章主要介绍了excel怎样合并同名并相加数量?excel表格相同名称数据合并求和的相关资料,需要的朋友可以参考下本文详细内容介绍...

Excel怎么查找相同数据并标记在日常工作中经常会使用Excel表格,有时需要寻找表格中重复的数据并作标色,如何查找出重复的数据呢?请往下看哦...

10种excel多条件查找函数的使用方法汇总这篇文章主要介绍了10种excel多条件查找函数的使用方法汇总的相关资料,需要的朋友可以参考下本文详细内容介绍...

利用Excel制作年终报表小技巧干货Excel表格制作过程离不开技巧的应用,临近月底,你的年终报表做好了吗?今天小编教大家几个Excel制作年终报表小技巧,帮助你轻松制作一份完整的年终报表,让你的年终奖手到擒来甚至...

相关推荐: