表格模式转换

念缘ing

各位大佬，请指教。
需要把图1模式转变为图2，虽然转置可以但是效率太低，请指教高效方法。谢谢

ww87725244

1. 右拉
   
2. =IFERROR(TOCOL(REGEXEXTRACT(原表!$A$2:$A$21,IF(COLUMN()-1=1,"^\d.+",IF(RIGHT(B1,2)<>"答案",RIGHT(B1)&".+","参考.+")),1),3),"")

复制代码

edwin11891

公式长一点，一步到位：

1. =LET(src,TRIMRANGE(原表!A3:A500),nr,ROWS(src),sa,XMATCH(SEQUENCE(nr),--REGEXP(src,"\d+"),),nsa,FILTER(sa,NOT(ISERROR(sa))),sb,FILTER(SEQUENCE(nr),LEFT(src,4)="参考答案"),nsb,FILTER(sb,NOT(ISERROR(sb))),st,INDEX(src,nsa),sans,MAP(nsb,nsa,LAMBDA(x,y,TEXTJOIN(",",,DROP(TAKE(src,x),y)))),san,DROP(REDUCE("",sans,LAMBDA(x,y,VSTACK(x,LET(ta,TEXTSPLIT(y,","),tb,DROP(ta,,-1),HSTACK(EXPAND(tb,,6,""),TAKE(ta,,-1)))))),1),Re,HSTACK(st,san),Re)

复制代码

edwin11891

上一帖在审核，修正只好重发一下，前面没注意到题目总数有近1000道之多，因此只需要把开始的预测行数500改大一些即可，比如下面的50000（当然还可以任意更大的预留值，不影响效率）。

1. =LET(src,TRIMRANGE(原表!A3:A50000),nr,ROWS(src),sa,XMATCH(SEQUENCE(nr),--REGEXP(src,"\d+"),),nsa,FILTER(sa,NOT(ISERROR(sa))),sb,FILTER(SEQUENCE(nr),LEFT(src,4)="参考答案"),nsb,FILTER(sb,NOT(ISERROR(sb))),st,INDEX(src,nsa),sans,MAP(nsb,nsa,LAMBDA(x,y,TEXTJOIN(",",,DROP(TAKE(src,x),y)))),san,DROP(REDUCE("",sans,LAMBDA(x,y,VSTACK(x,LET(ta,TEXTSPLIT(y,","),tb,DROP(ta,,-1),HSTACK(EXPAND(tb,,6,""),TAKE(ta,,-1)))))),1),Re,HSTACK(st,san),Re)

复制代码

今铭昔

ykcbf1100

参与一下，VBA

ykcbf1100

1. Sub ykcbf()   '//2025.6.12
   
2.     arr = Sheets("原表").UsedRange
   
3.     ReDim brr(1 To 5000, 1 To 10)
   
4.     For i = 3 To UBound(arr)
   
5.         If Val(arr(i, 1)) Then m = m + 1: n = 2: brr(m, 1) = m: brr(m, 2) = arr(i, 1)
   
6.         If arr(i, 1) Like "[A-Z]*" Then n = n + 1: brr(m, n) = arr(i, 1)
   
7.         If arr(i, 1) Like "参考*" Then brr(m, 9) = arr(i, 1)
   
8.     Next
   
9.     With Sheets("新表")
   
10.         .UsedRange.Offset(1) = Empty
    
11.         .[a2].Resize(m, 10) = brr
    
12.     End With
    
13.     MsgBox "OK！"
    
14. End Sub
    

复制代码

mjm04

看不懂你要什么，给个转置函数看能不能用上

=WRAPROWS(原表!A3:A20,6)