这个不用VBA的话没法在同一个单元格里写。可以加两行统计然后写出来。新建一个工作表，在A1单元格写-100，B1, C1, …的位置是数据区域。假设有6个数据，数据区域就是B1:G1。在H1单元格写=MAX(A2:G2)，在I2单元格写=MAX(A3:G3)
在A2和A3单元格写0。
在B2单元格写=IF(MOD(B1,2)=1,IF(OR((B1=A1+2),AND(A2=0,C1=B1+2)), MAX($A2:A2)+1, 0),0)
在B3单元格写=IF(MOD(B1,2)=0,IF(OR((B1=A1+2),AND(A3=0,C1=B1+2)), MAX($A3:A3)+1, 0),0)
用单元格右下角的小十字填充整个数据区域下面的两行，H1和I1就是奇数和偶数的连号个数。写完之后，这段代码也可以复制到其他位置，只要上方是数据区域，数据区域左侧的单元格是-1000就可以
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024