|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 人贵于自省 于 2013-12-9 11:00 编辑
167个字符- =SUBSTITUTE(TEXT(SUBSTITUTE(SUM(TEXT(FREQUENCY(ROW($1:$7),TRANSPOSE(A3:G3<>B3:H3-1)*ROW($1:$7)),"[<=1]!0;0")*10^(9-ROW($1:$8))),0,),"[=7]0顺;;0连号+0连号+0连号;无连号"),"0连号+",)
复制代码 需要在I3输入,因为引用了H列,不知道能不能行,先给一个,再想想其他的方法
183个字符- =SUBSTITUTE(TEXT(SUBSTITUTE(SUM(TEXT(FREQUENCY(ROW($1:$6),TRANSPOSE(A3:F3<>B3:G3-1)*ROW($1:$6))+{0;0;0;0;0;0;1},"[<=1]!0;0")*10^(8-ROW($1:$7))),0,),"[=7]0顺;;0连号+0连号+0连号;无连号"),"0连号+",)
复制代码
再简化一下,175个字符- =SUBSTITUTE(TEXT(SUBSTITUTE(SUM(TEXT(FREQUENCY(COLUMN(A:F),(A3:F3<>B3:G3-1)*COLUMN(A:F))+{0;0;0;0;0;0;1},"[<2]!0;0")*10^(8-ROW($1:$7))),0,),"[=7]0顺;;0连号+0连号+0连号;无连号"),"0连号+",)
复制代码
补充内容 (2013-12-27 08:31):
=SUBSTITUTE(TEXT(SUBSTITUTE(SUM(TEXT(FREQUENCY(ROW($1:$7),(A3:F3<>B3:G3-1)*COLUMN(A:F)),"[<2]!0")*10^(8-ROW($1:$7))),0,),"[=7]0顺;;0连号+0连号+0连号;无连号"),"0连号+",),这种方法的最简公式了 |
评分
-
1
查看全部评分
-
|