品令茶词 发表于 2021-11-25 13:51:00

怎么让一列或多列数据转换为一行或者多行数据？（已解决） ...

想要图片上的效果，因为数据很多，有3000多行数据，需要图片这样的转换，想看看有啥好的办法。

嬼葉芊栩 发表于 2021-12-5 04:54:21

就本附件数据：建议增加字段名+数据透视表，如果b列是随机值，再增加辅助列进行数据透视

童化龙 发表于 2021-12-6 17:36:48

Private Sub CommandButton1_Click()
Dim dr As New Dictionary
Dim dc As New Dictionary
Dim arr, brr(), I&, N&
arr = Range(Range("A60000").End(xlUp), "B1")
N = UBound(arr)
ReDim brr(1 To N, 1 To 100)
For I = 1 To N
If Not dr.Exists(arr(I, 1)) Then
    dr(arr(I, 1)) = dr.Count + 1
End If
dc(arr(I, 1)) = dc(arr(I, 1)) + 1
brr(dr(arr(I, 1)), dc(arr(I, 1))) = arr(I, 2)
Next
Range("D1").EntireColumn.Resize(, 100 + 1).ClearContents
Range("E1").Resize(dr.Count, 100) = brr
Range("D1").Resize(dr.Count) = WorksheetFunction.Transpose(dr.Keys())
End Sub

女神马腾 发表于 2021-12-13 18:56:02

。。。。。。。用字典。

用户居士 发表于 2022-1-11 02:05:42

=IFERROR(INDEX($B$1:$B$38,SMALL(IF($A$1:$A$38=$D1,ROW($A$1:$A$38),4^8),COLUMN(A1))),"")

包整痛 发表于 2022-1-14 08:46:10

谢谢。紫薯布丁

专骂残疾人 发表于 2022-1-21 04:24:46

非常好用，谢谢版主大人

云中花蕊 发表于 2022-2-3 11:13:52

5楼的数组也能达到效果

美的冰箱皮春梅 发表于 2022-2-18 06:59:02

论坛的大咖们，谢谢你们的支持！
页: [1]
查看完整版本: 怎么让一列或多列数据转换为一行或者多行数据？（已解决） ...