高难度问题，某事件发生日历表，比如15至20日有发生，如何整理连续日期为15-20这样... ...

名字不赖

高难度问题。
如图所示，某事件发生日历表，显示‘是’表明此日发生某事件。
一个月下来，怎样把数据整理成如‘红字’这样的文字说明呢？连续日期用横线连接，然后逗号分隔。

日期整理.zip (7.36 KB, 下载次数: 13)

2021-11-26 20:14 上传

点击文件名下载附件
日期整理.zip

神先生

水平有限 仅供参 K A0( VB A)
日期整理VBA.rar (12.58 KB, 下载次数: 136)

2021-11-26 20:14 上传

点击文件名下载附件
日期整理VBA.rar

章福元

PQ（excel2016及以上自带）解法
日期整理.zip

修齐

水平有限

妙手一针

别人写的公式
=SUBSTITUTE(CONCAT(IF($B2:$U2="是",IF($A2:$T2<>"是",","&$B$1:$U$1,IF($C2:$V2<>"是","-"&$B$1:$U$1,"")),"")),",","",1)

盛梅玲

高难度?什么意思

自由飞奔

=MID(SUBSTITUTE(CONCAT(IF(B2:U2=""," ",IF(A2:T2<>"是",","&B$1:U$1,IF(T(OFFSET(B2,,($B$1:$U$1=20)*99+$B$1:$U$1))<>"是","-"&B$1:U$1,""))))," ",),2,99)