一维表转为二维表

adud · 发表于 2022-2-16 16:33

mjm04 发表于 2022-2-16 14:01
=IFERROR(INDEX($D:$D,SMALL(IF(($G2=$A:$A)*($H2=$B:$B)*($I2=$C:$C),ROW($1:$2000),),COLUMN(A1))),"")
...

看不懂公式，我在各位大佬的帮助下，基本解决了我的问题。谢谢啊

adud · 发表于 2022-2-16 16:34

micch 发表于 2022-2-16 13:06
直接透视一下

我试过透视表，但那些1没法变过来。谢谢啊

adud · 发表于 2022-2-16 21:38

本帖最后由 adud 于 2022-2-16 22:22 编辑

chxw68 发表于 2022-2-15 18:45
修改好了。

又来找你麻烦了，请不要嫌烦啊。如果想达到图片或者文件中显示的那样，该怎么做呢。先谢谢啊。第二个基本实现了目标，但感觉太笨了，求指导。

chxw68 · 发表于 2022-2-17 08:20

详见附件。

ykcbf1100 · 发表于 2025-3-10 17:58

练习一下。。。

ykcbf1100 · 发表于 2025-3-10 17:58

Sub ykcbf() '//2025.3.10
Dim zrr(1 To 1000)
With ActiveSheet
r = .Cells(Rows.Count, 1).End(3).Row
arr = .[a1].Resize(r, 4)
col = 2
For i = 2 To UBound(arr)
If arr(i, col) <> arr(i - 1, col) Then m = m + 1: zrr(m) = Array(i, i)
If i = r Then zrr(m)(1) = r Else If arr(i, col) <> arr(i + 1, col) Then zrr(m)(1) = i
Next
ReDim brr(1 To r, 1 To 100)
For x = 1 To m
r1 = zrr(x)(0): r2 = zrr(x)(1)
n = r2 - r1 + 1
k = 3
brr(x, 1) = arr(r1, 1)
brr(x, 2) = arr(r1, 2)
brr(x, 3) = arr(r1, 3)
For i = r1 To r2
k = k + 1
brr(x, k) = arr(i, 4)
Next
mx = IIf(mx < k, k, mx)
Next
.Columns(7).NumberFormatLocal = "@"
.[g2].Resize(16, 100) = Empty
.[g2].Resize(m, mx) = brr
End With
End Sub

复制代码

lizhipei78 · 发表于 2025-3-10 19:20

本帖最后由 lizhipei78 于 2025-3-10 21:05 编辑

lizhipei78 · 发表于 2025-3-10 21:02

两种都帮你写了，WPS打开

JSA-按自定义序列排序.rar (21.95 KB, 下载次数: 3)

lyfegf · 发表于 2025-3-10 23:00

pandas

xlwings

adud · 发表于 2025-3-25 17:35

lyfegf 发表于 2025-3-10 23:00
pandas

看不懂啊，没学过。还是非常感谢

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

[求助] 一维表转为二维表