请教如何自动填序号

jsyzlibin

请教各位老师，在附件中机构名称前自动填序号，相同机构只在第一个前填序号，谢谢。

清风竹-

请看附件。

无关岁月

副本自动填序号.7z (15.06 KB, 下载次数: 4)

2024-1-31 12:26 上传

点击文件名下载附件

ykcbf1100

附件供参考。。

ykcbf1100

代码以附件为准

1. Sub ykcbf()  '//2024.1.31
   
2.     r = Me.Cells(Rows.Count, 2).End(3).Row
   
3.     For i = 2 To r
   
4.         If Me.Cells(i, 2) <> Me.Cells(i - 1, 2) Then
   
5.             m = m + 1
   
6.             Me.Cells(i, 1) = m
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

gwjkkkkk

写个公式吧，应该也比较简单。。。

gwjkkkkk

C2=下拉

1. =IF(COUNTIF($B$2:$B2,B2)=1,COUNTA($A$2:$A2),"")

复制代码