首页 > Excel专区 > Excel教程 >

如何给相同姓名添加相同Excel表格编号

Excel教程 2021-12-25 21:47:17

如下两个表格:

第一种情况是按姓名排序的,第二种情况姓名未加排序。

两种情况下,怎样给相同姓名添加相同编号?

今天给出函数法与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表格制作excel教程

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.