请老师辛苦指教下，谢谢

hcm19522 · 发表于 2024-9-4 16:38

{=INDEX(A:A,SMALL(IF(B$2:B$5>=COLUMN(A:Z),ROW($2:$5),99),ROW(A1)))&""

quqiyuan · 发表于 2024-9-4 17:24

PQ也可以参考一下。。。

递归 · 发表于 2024-9-4 18:08

本帖最后由递归于 2024-9-4 18:18 编辑

=LOOKUP(ROW(A1)-1,MMULT((ROW($1:$5)>COLUMN($A$1:$E$1))*1,$B$2:$B$6*1),$A$2:$A$6)

任意位置输入公式下拉生成

一杯绿茶来了 · 发表于 2024-9-4 19:51

=LOOKUP(ROW(A1)-1,SUBTOTAL(9,OFFSET($B$1,,,ROW($1:$5))),$A$2:$A$5)
=INDEX(A:A,SMALL(IF($B$2:$B$5>=COLUMN(A:Z),ROW($2:$5)),ROW(A1)))
=LOOKUP(,0/FREQUENCY(ROW(A1),MMULT(N(ROW($1:$4)>=COLUMN(A:D)),$B$2:$B$5)),$A$2:$A$5)

cnmlgb9998 · 发表于 2024-9-4 22:12

这样？？？？？？？？？？？？？？？？？？？

mjm04 · 发表于 2024-9-4 23:34

这个也行的

=REDUCE(,A2:A5,LAMBDA(a,b,VSTACK(a,IFNA(EXPAND(b,XLOOKUP(b,A2:A5,B2:B5)),b))))

你是那块小饼干 · 发表于 2024-9-5 17:17

=TEXTSPLIT(TEXTJOIN("",TRUE,REPT(A2:A5&"/",B2:B5)),,"/",TRUE)

复制代码

qiyoca · 发表于 2024-9-5 17:37

=TEXTSPLIT(CONCAT(MAP(A2:A5,B2:B5,LAMBDA(x,y,REPT(x&":",y)))),,":",1)

守候_CJ · 发表于 2024-9-6 16:15

公式不会写了个VBA代码：

Sub 重复行()
Dim i As Long
Dim j As Long
Dim k As Long
With Sheet1
i = 2
k = 2 '表示从第二行开始写结果
Do While .Range("B" & i).Value <> ""
For j = 1 To .Range("B" & i).Value
.Range("F" & k).Value = .Range("A" & i).Value '“F”可以换成自己想要的结果列
k = k + 1
Next j
i = i + 1
Loop
End With
MsgBox "完成！"
End Sub

复制代码

richardzhu15 · 发表于 2024-9-6 16:22

=VSTACK(REPTARRAY(A2,B2),REPTARRAY(A3,B3),REPTARRAY(A4,B4),REPTARRAY(A5,B5))

		自动登录	找回密码
密码			免费注册

[求助] 请老师辛苦指教下，谢谢

评分