ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: wangg913

[Excel 函数与公式] [第120期]最长连续优良月数[结束]

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-2-5 08:00 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
  1. =MAX(ISNUMBER(FIND(111,-MID(CONCAT(IF(B3:M3>"B","C",N(B3:M3="A")))&"C",ROW($1:9),G$2:M$2)))*G$2:M$2)
复制代码
数组

评分

7

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-2-7 22:13 | 显示全部楼层
要求修改后难度增加了好多,目前只能实现得出正确结果,还不能做到小于150字符。
将常量数组定义为名称 N={1,2,3,4,5,6,7,8,9,10,11,12}   M={1,2,3,4,5,6,7}
O3输入
=COUNT(FIND("AAA",MID(PHONETIC(B3:M3),MATCH(6,COUNTIF(OFFSET(A3:F3,,M),"<C"),),MAX(FREQUENCY((B3:M3<="B")*N,(B3:M3>"B")*N)))))*MAX(FREQUENCY((B3:M3<="B")*N,(B3:M3>"B")*N)) (171字符)

=COUNT(FIND("AAA",PHONETIC(OFFSET(A3,,MATCH(6,COUNTIF(OFFSET(A3:F3,,M),"<C"),),,MAX(FREQUENCY((B3:M3<="B")*N,(B3:M3>"B")*N))))))*MAX(FREQUENCY((B3:M3<="B")*N,(B3:M3>"B")*N)) (173字符)
看来要换思路了

TA的精华主题

TA的得分主题

发表于 2018-2-7 22:14 | 显示全部楼层
要求修改后难度增加了好多,目前只能实现得出正确结果,还不能做到小于150字符。
将常量数组定义为名称 N={1,2,3,4,5,6,7,8,9,10,11,12}   M={1,2,3,4,5,6,7}
O3输入
=COUNT(FIND("AAA",MID(PHONETIC(B3:M3),MATCH(6,COUNTIF(OFFSET(A3:F3,,M),"<C"),),MAX(FREQUENCY((B3:M3<="B")*N,(B3:M3>"B")*N)))))*MAX(FREQUENCY((B3:M3<="B")*N,(B3:M3>"B")*N)) (171字符)

=COUNT(FIND("AAA",PHONETIC(OFFSET(A3,,MATCH(6,COUNTIF(OFFSET(A3:F3,,M),"<C"),),,MAX(FREQUENCY((B3:M3<="B")*N,(B3:M3>"B")*N))))))*MAX(FREQUENCY((B3:M3<="B")*N,(B3:M3>"B")*N)) (173字符)
看来要换思路了

TA的精华主题

TA的得分主题

发表于 2018-2-8 17:41 | 显示全部楼层
本帖最后由 说不好 于 2018-2-9 10:09 编辑

好久没上,差点错过。

比较笨的做法,147
  1. =MAX((FREQUENCY(IF((A3:L3=B3:M3)*(B3:M3="A"),B$2:M$2),(B3:M3>"B")*B$2:M$2)>1)*TEXT(FREQUENCY(IF(B3:M3<"C",B$2:M$2),(B3:M3>"B")*B$2:M$2),"[>5];!0"))
复制代码


换个思路,113
  1. =MAX(ISNUMBER(FIND(111,-MID(SUBSTITUTE(SUBSTITUTE(PHONETIC(B3:M3),"A",1),"B",2)&"a",ROW($1:7),G$2:M$2)))*G$2:M$2)
复制代码






评分

6

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-2-8 19:55 | 显示全部楼层
O3=IF(LEN(SUBSTITUTE(PHONETIC(B3:M3),{"AAA"},""))=12,,12-MIN(LEN(SUBSTITUTE(SUBSTITUTE(PHONETIC(B3:M3),{"A"},"B"),REPT("B",ROW($6:$12)),""))))

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-2-8 20:23 | 显示全部楼层
本帖最后由 七夕、 于 2018-2-8 21:04 编辑
  1. =MAX(ISNUMBER(FIND(111,-MID(Concat(TEXT(66-CODE(B3:M3),"0;a"))&"a",ROW($1:7),G$2:M$2)))*G$2:M$2)
复制代码

评分

7

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-2-9 13:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 xzk235 于 2018-2-10 11:17 编辑

数组公式,146字符,针对此题12个月和6个月的特殊情况(12不大于6*2)。
O3=
  1. =IFERROR(LOOKUP(13,IF(FIND("AAA",MID(PHONETIC(B3:M3),FIND(REPT("A",ROW($6:$12)),SUBSTITUTE(PHONETIC(B3:M3),"B","A")),ROW($6:$12))),ROW($6:$12))),)
复制代码

评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-2-9 18:31 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
离150字符差多了,重在参与。开帖前才看到,不能重新架构了。
=LEN(MAX((MMULT({0,1}-ISERR(FIND({0,222},MID(SUM(((B3:M3<"C")+(B3:M3="A"))*10^B$2:M$2),MOD(ROW($7:$55),7)+1,5+INT(ROW($7:$55)/7))))*{-1,1},{1;1})=2)*(MID(SUM(((B3:M3<"C")+(B3:M3="A"))*10^B$2:M$2),MOD(ROW($7:$55),7)+1,5+INT(ROW($7:$55)/7))&0)))-1

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-2-10 07:52 | 显示全部楼层
本帖最后由 Geslon 于 2018-2-10 21:55 编辑

按照第一版题目,做出来的是114字:
=TEXT(COUNT(FIND("AAA",PHONETIC(B3:M3)))*COUNT(FIND(REPT(1,ROW($1:$12)),SERIESSUM(10,0,1,N(B3:M3<"C")))),"[<6]!0")
要提交发现题目变了,再按照第二版做出来,是216字,超出了要求,555555~~~抛个砖,向大家学习吧~~
=COUNT(FIND("AAA",MID(PHONETIC(B3:M3),FIND(111111,SERIESSUM(10,-1,-1,N(B3:M3<"C")))-2,COUNT(FIND(REPT(1,ROW($1:$12)),SERIESSUM(10,0,1,N(B3:M3<"C")))))))*COUNT(FIND(REPT(1,ROW($1:$12)),SERIESSUM(10,0,1,N(B3:M3<"C"))))
三键,下拉

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-2-10 23:02 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
开贴。待总结。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-20 08:01 , Processed in 0.049965 second(s), 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表