[开_157]名单增加（已总结）

满坛皆为吾师

一、题目说明：
      根据K1单元格的数值进行对B列首次出现的人名进行个数增加，结果如D2:J31区域所示。
      如K1=1，增加一次；K2=4，则增加四次。若有不解，请参照答案。

二、答题要求：（答案仅取楼层第一条）
      1、禁止任意方式引用结果示例。
      2、答题区域为L2:R31单元格。
      3、答案请用代码模式提交。
      4、禁止占楼，一人一层。

三、评分规则：
      1、2013及以下版本，公式正确且字符<100技术分+1，最佳答案（字符数最少）技术分+2。
      2、接受365测试通道及其它版本公式答案，公式正确且字符最少，技术分+1，仅评一人。
      3、若答案并列最短，则以发贴时间(最后编辑时间)为先者设为最佳答案。

四、竞赛日期：
      2022-4-18至2022-5-8

[开_157]名单增加.rar (17.31 KB, 下载次数: 400) 2022-4-18 15:27 上传 点击文件名下载附件

本期题目采纳自坛友：客都梅州

tchh666

区域数组，86字符

1. =INDEX(B:B,SMALL(((B2:B31<>B3:B32)*K1+1<COLUMN(A:H))*99+ROW(),7*ROW()+COLUMN()-25))&""

复制代码

88字符。。。

1. =LET(X,B2:B31,Y,UNIQUE(X),WRAPROWS(TEXTSPLIT(CONCAT(REPT(Y&0,COUNTIF(X,Y)+K1)),0),7,""))

复制代码

18字符，引用答案区，闹着玩。。。

1. =TAKE(D2:J31,30,7)

复制代码

624134745

=IFERROR(INDEX(DROP(REDUCE("",DROP(UNIQUE(B2:B32),-1),LAMBDA(x,y,VSTACK(x,EXPAND(y,K1+COUNTIF(B2:B30,y),,y)))),1),SEQUENCE(30,7)),"")365预览通道，字符133。=WRAPROWS(DROP(REDUCE("",DROP(UNIQUE(B2:B32),-1),LAMBDA(x,y,VSTACK(x,EXPAND(y,K1+COUNTIF(B2:B30,y),,y)))),1),7,"")优化一下，365预览通道字符114。

jmayf00

=IFERROR(INDEX(UNIQUE($B$2:$B$31),SMALL(IFERROR(IF((COUNTIF($B$2:$B$31,UNIQUE($B$2:$B$31))+$K$1)>=COLUMN($A:$CD),ROW($B$1:$B$30)),4^8),COLUMN(A1)+7*(ROW(A1)-1))),"")

魚。。

区域数组：

1. =INDEX(B:B,SMALL(IFERROR(--MID(REPT(TEXT(A2:A31+1,"00"),IF(MATCH(B2:B31,B2:B31,)=--A2:A31,K1)+1),COLUMN(A:I)*2-1,2),66),ROW(1:31)*7+COLUMN(A:G)-7))&""

复制代码

良良

L2

1. =IFERROR(INDEX($B:$B,SMALL(IF((COUNTIF($B$2:$B$31,$B$2:$B$31)+$K$1)*(MATCH($B$2:$B$31&"",$B$2:$B$31&"",)=ROW($1:$30))*($B$2:$B$31<>"")>=COLUMN($A:$Z),ROW($2:$31)),COLUMN(A1)+7*ROW(A1)-7)),"")

复制代码

数组三键，右拉、下拉。

jivy1212

1. =LET(x,UNIQUE(B2:B31),INDEX(TEXTSPLIT(CONCAT(REPT(x&" ",COUNTIF(B2:B31,x)+K1))&REPT("  ",99)," "),SEQUENCE(30,7)))

复制代码

  没思路，参与一下，这个感觉又是“循环引用”类的，引用前半部

cjc209

365 版本
=IFERROR(INDEX(TEXTSPLIT(TEXTJOIN(" ",1,TRIM(REPT(UNIQUE(B2:B31)&" ",K1+1)))," "),SEQUENCE(30,7,1,1)),"")

yzxfelix

不是vba代码题吗

李逸雪

区域数组：

1. =INDEX(B:B,SMALL((COLUMN(A:H)>K1*(B1:B30<>B2:B31)+1)*30+ROW(),ROW()*7+COLUMN()-25))&""

复制代码