|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 hcm19522 于 2016-8-13 10:53 编辑
隨意窩 "EXCEL迷" blog 關鍵字 2599
V2:V16{=MAX(FREQUENCY(IF(A2:T2="",COLUMN(A2:T2)),IF(A2:T2<>"",COLUMN(A2:T2))))
W1:W16{=IFERROR(SMALL(IF(A2:T2<>"",COLUMN(A2:T2)),MATCH(3,FREQUENCY(IF(A2:T2="",COLUMN(A2:T2)),IF(A2:T2<>"",COLUMN(A2:T2))),))-3,"無")
X1:X16{=IFERROR(SMALL(IF(A2:T2<>"",COLUMN(A2:T2)),MATCH(MAX(FREQUENCY(IF(A2:T2="",COLUMN(A2:T2)),IF(A2:T2<>"",COLUMN(A2:T2)))),FREQUENCY(IF(A2:T2="",COLUMN(A2:T2)),IF(A2:T2<>"",COLUMN(A2:T2))),)-1)+1,1)
格式化 第一連續3個空白格=(COLUMN(A2)=$W2)+(COLUMN(A2)=$W2+1)+(COLUMN(A2)=$W2+2)
格式化 最多連續空白=(COLUMN(A2)>=$X2)*(COLUMN(A2)<=$V2+$X2-1)
A2:T16=IF(RANDBETWEEN(0,9),"",RANDBETWEEN(1,6)) ,資料亂數產生 ,按F9就改變
~~~~ 參考即可 ~~~~
|
|