在第一种情况下，名称已排序，而在第二种情况下，名称未排序。

如何在两种情况下将相同的号码添加到相同的名称中？

今天韩老师给出了函数方法和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(VALUE);

功能：将非数值的值转换为数值形式；

不同的参数VALUE，对应的返回值：

在本例中，N(F1)的返回值为0。

注意：无序排列的公式也适用于有序排列！

VBA法

代码是：

子号码()

Dim a As Object, i As Long '创建字典/

设置a=CreateObject('scripting.dictionary')

对于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 '对字典键进行编号，第一个数字是1，第二个数字是2.

Cells(i, 1)=k '返回第一列，组

else '如果字典（数字）存在

Cells(i, 1)=a(Cells(i, 2).Value) '直接在字典中查询数字

下一个

用法：