如何给相同姓名添加相同Excel表格编号
发布时间:2023-10-13 03:21:25
如下两个表格:
第一种情况是按姓名排序的,第二种情况姓名未加排序。
两种情况下,怎样给相同姓名添加相同编号?
今天给出函数法与VBA法。
函数方法相同姓名有序排列:
1、在A2单元格输入编号1;
2、在A3单元格输入公式:
=IF(B3=B2,A2,A2+1)
该公式的含义是:
如果B3和B2姓名相同,则填写B2对应的编号A2,否则A2+1;
相同姓名凌乱无序排列:
其实在真正工作中,有序排列的姓名不多,更多的是无序排列。
1、在F2中输入公式:
=IFERROR(VLOOKUP(G2,IF({1,0},G$1:G1,F$1:F1),2,0),N(F1)+1)
向下填充,即得结果:
其中:
IF({1,0},G$1:G1,F$1:F1):
是由IF函数重新构建一动态区域,该区域有两列:
第一列是姓名,起始单元格是G1,结束单元格随公式向下填充而扩展;
第二列是编号,起始单元格是F1,结束单元格随公式向下填充而扩展;
公式不管填充到哪一行,该动态区域的结束行都是当前公式所在行的上一行。
VLOOKUP(G2,IF({1,0},G$1:G1,F$1:F1),2,0):
在上述动态区域中精确查找姓名对应的编号。
IFERROR(VLOOKUP(G2,IF({1,0},G$1:G1,F$1:F1),2,0),N(F1)+1):
如果查找姓名G2对应的编号出错,则返回N(F1)+1;
公式向下填充,如果到第12行,则:查找姓名G12对应的编号出错,则返回N(F11)+1。
N函数:
语法:N(VALUE);
功能:将不是数值的值转换为数值形式;
不同参数VALUE,对应的返回值:
本示例中,N(F1)的返回值是0。
注:无序排列的公式同样适合有序排列!
VBA法
代码为:
Sub 编号()
Dim a As Object, i As Long ‘创建字典/
Set a = CreateObject(“scripting.dictionary”)
For i = 2 To Range(“b1”).CurrentRegion.Rows.Count
If Not a.exists(Cells(i, 2).Value) Then ‘添加编号到字典,第一个编号不存在),则
k = k + 1 ‘计数
a(Cells(i, 2).Value) = k ‘给字典key编号,第一个编号是1,第二个编号是2……
Cells(i, 1) = k ‘返回给第一列,分组
Else ‘如果字典(编号)存在
Cells(i, 1) = a(Cells(i, 2).Value) ‘直接在字典里查询编号
End If
Next
End Sub
用法:
猜你喜欢
- Excel怎么判断表格中的年份是否是闰年?excel中有很多年份,需要将平年和闰年区分出来,该怎么实现,今天我们就来看看excel中使用vb
- 如何在Word 2013中格式化表格边框?网格线可以在Word 2013文档中显示或隐藏在屏幕上(通过“表格工具布局”→“查看网格线”)。网
- Word文档中怎么去除页眉横线一、Word2013(Word2010)页眉横线怎么去掉1、快捷步骤双击页眉区域进入编辑页眉状态 → 选中页眉
- 通常情况下,我们都是通过屏幕右下角的时间来获取当前日期的,那么时间可以显示今天星期几吗?如果可以的话,要怎么设置呢?如果你也感兴趣的话,就跟
- 最近一些朋友在问小编怎么去掉Word里字前的符号?今天小编将为大家带来的是去掉Word里字前的符号的方法;希望对大家会有帮助!有需要的朋友一
- 在word上编辑或者阅读文字的时候,有些地方需要加上标注以起到醒目的时候,我们就可以可以给选中的文字加上底色,这时候我们可以随时找到自己做标
- 在 在Excel 2007中,还可以使用鼠标拖动法来移动或复制单元格内容在 在Excel 2007中,还可以使用鼠标拖动法来移动或复制单元格
- 现在的人们都已经离不开word软件了,这是因为word软件可以更好的解决文档的编辑问题,提升了用户的编辑速度,也避免了很多的麻烦,所以wor
- excel表格中怎么绘制一个漂亮的心形图?想在excel中绘制一个很漂亮的颜色有变化的心形图,该怎么绘制呢?下面我们就来看看详细的教程,需要
- 在Word中,有两种输入模式:插入模式和改写模式,默认的是插入模式,当输入模式由插入模式变为改变模式后,在原有文字中输入一个新的文字,就会把
- 我们在word文档里制作好文档之后,就会被文档的页码搞晕,那么下面就由小编给大家分享下word中设置不同格式页码的技巧,希望对大家有所帮做。
- 自从新闻和兴趣功能的推送,许多小伙伴越来越喜欢使用这个功能了。可是这个功能为我们推送的并不是全部都是我们喜欢的,那么怎么将一些不喜欢的图标进
- 本专题从Excel中的一些鲜为人知的技巧入手,让你领略一下关于Excel的别样风情。也许你已经在Excel中完成过上百张财务报表,也许你已利
- Excel2016中怎么绘制函数图像?Excel2016中想绘制一个函数图像,该怎么绘制呢?下面我们就来看看excel绘制函数图像的实例教程
- word本身没有截图功能,截图需要电脑其他软件支持按照操作上从易到难的顺序,推荐五种截屏方式:第一种:Ctrl +PrScrn 使用这个组合
- 在 iOS 16 以及更新版本当中,照片应用可以帮助用户识别并合并重复项目。值得注意的一点是,iPhone 的合并照片功能并不是简单地删除一
- 我们从网页上下载文档,转到word时,会出现大量的空行,一行一行的删除太费劲,那么下面就由小编给大家分享下一次性删除所有的空行的技巧,希望能
- Word编辑区域怎么扩大?打开word文档,左右侧有显示不可编辑区域,中间的文档太小了,想将编辑区域扩大,该怎么办呢?下面就由小编分享wor
- 不少小伙伴升级了win10系统,升级后操作不太熟练,想要给系统更换主题却不知道可以怎么操作,windows10主题设置虽然相较之前比较复杂,
- Word怎么转PDF?Word转PDF转换器有没有?Word转PDF是不是很麻烦的事情?对于使用老版Office2003来说,不借助其他工具