如何给相同姓名添加相同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
用法:
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
win10edge浏览器乱码怎么办?win10edge浏览器乱码解决方法
![](https://img.aspxhome.com/file/2023/9/47579_0s.jpg)
Win11正式版怎么安装WSL?Windows11正式版安装WSL教程介绍
![](https://img.aspxhome.com/file/2023/2/a283998_0s.png)
巧用PPT DIY马赛克拼图
![](https://img.aspxhome.com/file/2023/2/a291008_0s.jpg)
wpsPPT怎么画热气球图标? ppt热气球的画法
![](https://img.aspxhome.com/file/2023/6/a165856_0s.jpg )
excel 如何复制列宽行高的方法,主要使用到选择性粘贴列宽、格式和格式刷来完成
判断主板电池是否没电的两大方法
![](https://img.aspxhome.com/file/2023/3/a299470_0s.png)
win10怎么关闭操作中心通知?win10通知中心关闭的方法教程
![](https://img.aspxhome.com/file/2023/30/a269994_0s.png)
搜狗输入法那些你所不知道的技巧
![](https://img.aspxhome.com/file/2023/5/a318465_0s.jpg)
Word如何在每两个字符之间添加西文半角空格
![](https://img.aspxhome.com/file/2023/8/31708_0s.png)
excel怎么打造个性的批注?
巧用WPS表格模板打造理财生活
![](https://img.aspxhome.com/file/2023/1/a164241_0s.jpg)
今日头条发财中国年卡怎么收集 今日头条集发财中国年卡的方法
![](https://img.aspxhome.com/file/2023/8/a335221_0s.png)
excel 如何设置单元格条件格式使单元格格式实现动态变化
![](https://img.aspxhome.com/file/2023/0/a141040_0s.jpg)
WPS 目录怎么自动生成页码
![](https://img.aspxhome.com/file/2023/4/a186924_0s.jpg)
PPT文字填充法使用实例教程
![](https://img.aspxhome.com/file/2023/10/a351893_0s.gif)
wdfmgr.exe是什么进程 wdfmgr进程可以关闭吗
wps2015怎么设置首行缩进
win10远程连接如何放在桌面上的详细方法
![](https://img.aspxhome.com/file/2023/2/a286864_0s.jpg)
微软Spartan浏览器发布:全新界面、内核 内置阅读模式
![](https://img.aspxhome.com/file/2023/29/a252219_0s.jpg)
Win10系统处理器和内存显示不可用怎么办?
![](https://img.aspxhome.com/file/2023/1/a277909_0s.png)