请问如何按部门和姓名添加序号

无可预期

我有一表格,想根据部门和姓名添加序号,重复的姓名只添加1次序号,请哪位高手帮忙设个公式.先谢谢了!!! 分部门按姓名添加序号.rar (8.28 KB, 下载次数: 27)

2018-8-27 22:19 上传

点击文件名下载附件

yfan17

1. =IF(COUNTIF($B$2:B2,B2)=1,IF(ROW(A1)=1,1,SUMPRODUCT(($C$2:$C2=C2)*(MATCH($B$2:$B2&$C$2:$C2,$B$2:$B2&$C$2:$C2,)=ROW($A$1:$A1)))),"")

复制代码

无可预期

yfan17 发表于 2018-8-27 23:41

你好,忽然发现了个问题,就是部门二和部门一之间如果有姓名重复,则在部门二就无序号了,请高手再看下,谢谢!!!

无可预期

请高手们帮下忙啊,谢谢!

yfan17

1. =IF(COUNTIFS($B$2:B2,B2,$C$2:C2,C2)=1,IF(ROW(A1)=1,1,SUMPRODUCT(($C$2:$C2=C2)*(MATCH($B$2:$B2&$C$2:$C2,$B$2:$B2&$C$2:$C2,)=ROW($A$1:$A1)))),"")

复制代码

无可预期

yfan17 发表于 2018-8-29 09:34

太感谢了啊!!!!!

leeqihero123

序号	患者     姓名	村别			序号(vba)
1	史晓璐	部门一		序号如何用公式表示	1
2	吕万华	部门一			2
3	史金翠	部门一			3
4	王忠英	部门一			4
5	叶春翠	部门一			5
6	仇国俭	部门一			6
	仇国俭	部门一
7	张龙昌	部门一			7
8	张顺	部门一			8
	张顺	部门一
	张顺	部门一
9	宋久东	部门一			9
	宋久东	部门一
1	邹绍容	部门二			1
	邹绍容	部门二
	邹绍容	部门二
2	王纪华	部门二			2
3	方长兰	部门二			3
4	蒋友珍	部门二			4
	蒋友珍	部门二
	蒋友珍	部门二
5	任守翠	部门二			5
1	王翠平	部门三			1
	王翠平	部门三
	王翠平	部门三
2	彭从连	部门三			2
	彭从连	部门三
3	袁少有	部门三			3
	袁少有	部门三
	袁少有	部门三
4	李九海	部门三			4
	李九海	部门三

1. Sub 序号()
   
2.     n = 1
   
3.     For x = 2 To 33
   
4.         With Sheet1
   
5.             If (.Cells(x, 3) <> .Cells(x - 1, 3)) Then
   
6.                 n = 1
   
7.             End If
   
8.             If (.Cells(x, 2) <> .Cells(x - 1, 2)) Then
   
9.                 .Cells(x, 6) = n
   
10.                 n = n + 1
    
11.             End If
    
12.         End With
    
13.     Next x
    
14. End Sub

复制代码

无可预期

leeqihero123 发表于 2018-9-2 10:32

谢谢啊,这是VBA吗？