返回首页
当前位置: 主页 > 办公软件 > Excel教程 >

Excel快速找出名单里同名同姓者

时间:2016-11-15 12:06来源:电脑教程学习网 www.etwiki.cn 编辑:admin
如图所示,存在同名同姓的学生,怎么将这些人从名单里找出来呢?借助宏代码!
Excel,找出名单里同名同姓者 - wangpfsir - wangpfsir的博客
 

 首先,插入一个新的工作表,并改名为“重名”,然后,在“重名”的A1单元格输入“班级”,B1单元格输入“姓名”。接下来,就是编写宏代码了(下面代码里的“名单”,是工作表的名称):

Sub theSame()
a = Sheets("名单").[a1].CurrentRegion.Rows.Count
For i = 2 To a
k = Sheets("重名").[a1].CurrentRegion.Rows.Count + 1
If Application.WorksheetFunction.CountIf(Sheets("名单").[b2:b7], Sheets("名单").Cells(i, 2)) > 1 Then
Sheets("重名").Cells(k, 2) = Sheets("名单").Cells(i, 2)
Sheets("重名").Cells(k, 1) = Sheets("名单").Cells(i, 1)
End If
Next i
End Sub

运行这个宏之后,就会在“重名”工作表里列出所有同名的学生的名字。

顶一下
(0)
0%
踩一下
(0)
0%
标签(Tag):excel Excel条件格式
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
推荐内容