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

有一种心情叫顺其自然

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

工作簿1.zip (7.39 KB, 下载次数: 12)

2021-11-25 13:51 上传

点击文件名下载附件
工作簿1.zip

梵曰

就本附件数据：建议增加字段名+数据透视表，如果b列是随机值，再增加辅助列进行数据透视
工作簿1.zip (15.33 KB, 下载次数: 118)

2021-11-25 13:51 上传

点击文件名下载附件
工作簿1.zip

待伊人归来

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

君似明月

。。。。。。。用字典。
22222221.7z (18.81 KB, 下载次数: 13)

2021-11-25 13:51 上传

点击文件名下载附件
22222221.7z

蓝天上的雄鹰

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

大桔喵

谢谢。紫薯布丁

潘国平

非常好用，谢谢版主大人

强权配狗

5楼的数组也能达到效果

不帅你报警

论坛的大咖们，谢谢你们的支持！