给你一个VBA操作方案,代码如下:
sub paixu()
dim i as long,istr as string,n as long
for i = 2 to [a65536].end(3).row
if istr <> cells(i,"A") then
n = 1
istr = cells(i,"A")
else
n = n + 1
end if
cells(i,"B") = b
next
end sub
B2公式:
=COUNTIF(A$2:A2,A2)
下拉。
公式如下:
=IF(A2=A1,B1+1,1)