如何将同一个Excel表号添加到同一个名称中

以下两个表格：

第一个案例按名称排序，第二个案例未按名称排序。

在这两种情况下，如何将同一个数字添加到同一个名称中？

今天给出了函数法和VBA法。

相同函数的名称是有序的：

1.在单元格A2中输入数字1；

2.在单元格A3中输入公式：

=中频(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)

向下填充以获得结果：

其中：

中频({1，0}，G$1:G1，F$1:F1):

动态区域由中频函数重建，该区域有两列：

第一列是名称，起始单元格是G1，结束单元格随着公式向下填充而扩展。

第二列是数字，开始单元格是F1，结束单元格随着公式向下填充而扩展。

无论公式填在哪一行，动态区域的结束行都是当前公式的前一行。

VLOOKUP(G2，IF({1，0}，G$1:G1，F$1:F1)，2，0):

在上面的动态区中准确找到与名字对应的数字。

iforr(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)；

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

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

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

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

VBA方法

代码是：

子编号()

马頔作为对象，我只要‘创造词典/

设置a=CreateObject(“脚本.字典”)

对于i=2至范围(“b1”)。

如果不存在(单元格(1，2))。值)，然后“将数字添加到字典中，第一个数字不存在)，然后。

K=k 1 '计数。

a(细胞(I，2)。value)=k' number字典键，第一个数字是1，第二个数字是2.

单元格(I，1)=k '返回第一列，分组。

否则，如果字典(数字)存在。

单元格(1，1)=a(单元格(1，2)。Value)'直接在字典中查找数字。

如果…就会结束

然后

末端接头

用法：