您的位置: 首页 > EXCEL技巧 > ExcelVBA >

利用Excel VBA查找同名学生

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

1.问题的提出

每个学期城市呈现同名同姓学生报到而产生一些张冠李戴的工作,给学校的一些带来了必然的贫苦。本人曾实验利用Excel的既有成果办理这个问题,但都没有收到很好的结果,于是思量利用VBA。

2.办理问题的目标

假设图1是学生的名单,然后从学生名单中提取出同名同姓学生的姓名及班别,复制到Sheet2中(图2),学校可以通过Sheet2的信息,分辨出共有几多同名同姓的学生及其地址的班级 。

操作Excel VBA查找同名学生

操作Excel VBA查找同名学生

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图表更具魅力↓下一篇文章

  • 打开EXCEL或WORD文档,总是会复制出一个带~$的同名 问题:打开EXCEL或WORD文档,总是会复制出一个带~$的同名文档,为什么?
    回答:这是office的机制,打开一个可编辑的文件时会生成一个临时文件,如果正常编辑和保存退出后这个临时文件会自动删除,如果出现异常,则此临时文件有可能被...
    当红作家同名小说改编话剧《后的诗》 问题:当红作家同名小说改编话剧《后的诗》
    回答:话剧《后的诗》新闻稿 当红作家同名小说改编话剧《后的诗》 2013-02-25 15:41:00 来历:长江商报网据悉,该剧报告了十年前陈国星等六个高中生,在介入结业仪式前夜,约好要对长大后的本身投下一张信任票,绝对不要成为看...
    Word2007文档中利用查找替换功能 统计词语的数量 问题:Word2007文档中利用查找替换功能 统计词语的数量
    回答:...词语的数量。在这种情况下我们其实可以用到Word2007中的查找替换功能来帮我们完成这项任务。下面Excel办公网就来为大家分享操作方法吧! ①首先,使用Word快捷键“Ctrl + H”,此时会弹出“查找和替换”对话框; ...
    Word利用表达式设置复杂查找替换方法 问题:Word利用表达式设置复杂查找替换方法
    回答: 查找与替换功能是Word软件操作中提高效率的有效手段,替换对象主要包括两大类元素:特殊符号类和格式类。但是遇到比较难于解决的复杂替换问题,比如在设计考试试卷的时候,就要借助于表达式这个工具来提升效率了。 ...
    如何在Word2010中查找指定文字 问题:如何在Word2010中查找指定文字
    回答:...要更改文档中一些相同的字符,这个时候我们就可以利用查找功能先将文档中指定的所有文字搜索出来。 方法一、利用查找” 1.打开Word文档,选择“开始”选项卡,在“编辑”选项组中单击“查找”...
    Word文档中如何快速找到自己想要的内容 问题:Word文档中如何快速找到自己想要的内容
    回答:...档,找起来相当是大海捞针对吧!不过,利用Office提供的查找功能,我们就可以毫不费劲的而且很快速的找到需要找的东西。 ①打开需要查找内容的Word文档,然后点开菜单栏中的“编辑”下面的“查找”命令。当...
    相关推荐: