关于复位计数的问题

yeminqiang

详细尽在附件......,求助各位大神，望指导。

马克思主义研究.zip (3.63 KB, 下载次数: 10)

2016-3-27 09:36 上传

点击文件名下载附件

wangjguo44

B2

1. =IF(A2=$B$1,$B$1,N(B1)+1)

复制代码

下拉（这不就是彩票的“遗漏”吗？）

hhjjpp

=IF(A2=$B$1,$B$1,IF(B1=$B$1,,B1)+1)

yeminqiang

1. Sub cdsr()
   
2.     For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
3.         If Cells(i, 1) <> Cells(1, 2) Then
   
4.             k = k + 1
   
5.             Cells(i, 2) = k
   
6.         Else
   
7.                 Cells(i, 2) = Cells(1, 2)
   
8.                 k = 0
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

马克思主义研究.zip (8 KB, 下载次数: 3)

2016-3-27 10:00 上传

点击文件名下载附件

自己补上个VBA的，函数真是弱鸡....感谢楼上的老师帮助！