表格转换

yhsd

各们大神，有一个表格转换问题，请教一下，想把表格1通过函数公式转成表格2，附excel表格，谢谢！

hxj119

1. =DROP(REDUCE("",UNIQUE(装箱清单!A2:A11),LAMBDA(x,y,IFNA(VSTACK(x,HSTACK(y,TOROW(FILTER(装箱清单!B2:E11,装箱清单!A2:A11=y)))),""))),1)

复制代码

A九月

=VSTACK(TOROW(B1:E1&F2:F11),TOROW(B2:E11))

yhsd

hxj119 发表于 2025-3-24 11:19

谢谢大神，是这个效果，我的清单中还有许多数据，以后还会序号4，5，6等等，有没有拓展一下？

你是那块小饼干

=IFNA(DROP(REDUCE("",A2:A4,LAMBDA(X,Y,VSTACK(X,HSTACK(Y,TOROW(FILTER(装箱清单!B2:E11,Y=装箱清单!A2:A11)))))),1),"")

飞天篮球猪

仅供参考...

hxj119

yhsd 发表于 2025-3-24 11:24
谢谢大神，是这个效果，我的清单中还有许多数据，以后还会序号4，5，6等等，有没有拓展一下？

根据装箱清单表的序号自动拓展。

zhangcheng6688

学习一下字典，在抑郁状态下完成，诶
Sub test()
arr = Sheets("装箱清单").[a1].CurrentRegion
Set dic = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To UBound(arr) * 5)
m = 1
For i = 1 To UBound(arr, 2)
   brr(1, i) = arr(1, i)
Next
For i = 2 To UBound(arr)
   If Not dic.exists(arr(i, 1)) Then
      m = m + 1
      For j = 1 To UBound(arr, 2)
         brr(m, j) = arr(i, j)
      Next
      n = 5
      dic(arr(i, 1)) = Array(m, n)
   Else
      r = dic(arr(i, 1))(0)
      c = dic(arr(i, 1))(1)
      For j = 2 To UBound(arr, 2)
         brr(r, c + j - 1) = arr(i, j)
         brr(1, c + j - 1) = arr(1, j)
      Next
      c = c + 4
      dic(arr(i, 1)) = Array(r, c)
      If mx < c Then
         mx = c
      End If
   End If
Next
If m > 0 Then
   Sheets("装箱清单").[a13].Resize(m, mx) = brr
End If
Set dic = Nothing
End Sub

yhsd

问题已经解决，谢谢各位大神的分享！

mengrs

=IFNA(REDUCE(HSTACK(装箱清单!A1,REPTARRAY(装箱清单!B1:E1,,5)),UNIQUE(装箱清单!A2:A11),LAMBDA(x,y,VSTACK(x,HSTACK(y,TOROW(IF(装箱清单!A2:A11=y,装箱清单!B2:E11,0/0),3))))),"")