如何把行数据处理成字典列

175jr · 发表于 2019-7-24 13:45

请问如何处理这种数据成图下部分的样式？

数据处理.zip (6.52 KB, 下载次数: 15)

abc123281 · 发表于 2019-7-24 13:59

Sub test()
Dim arr, brr(1 To 10000, 1 To 3)
With Worksheets("Sheet1")
  r = .[a65536].End(xlUp).Row
  arr = .Range("A1:f" & r)
  For i = 1 To UBound(arr)
For j = 3 To UBound(arr, 2)
   If arr(i, j) <> "" Then
      m = m + 1
      brr(m, 1) = arr(i, 1)
      brr(m, 2) = arr(i, 2)
      brr(m, 3) = arr(i, j)
   End If
Next
  Next
.Range("h3").Resize(m, 3) = brr
End With
End Sub

abc123281 · 发表于 2019-7-24 14:00

数据处理.rar (15.09 KB, 下载次数: 17)

hcm19522 · 发表于 2019-7-24 16:41

H1:J17{=IFERROR(INDIRECT(TEXT(SMALL(IF($C$1:$F$6>0,ROW($1:$6)/1%+IF(COLUMN(A1)<3,COLUMN(A1),COLUMN($C:$F))),ROW(A1)),"!R0C00"),),"")

175jr · 发表于 2019-7-25 17:07

abc123281 发表于 2019-7-24 14:00

谢谢，已经满足需求了，抄下来修改了下

175jr · 发表于 2019-7-25 17:09

hcm19522 发表于 2019-7-24 16:41
H1:J17{=IFERROR(INDIRECT(TEXT(SMALL(IF($C$1:$F$6>0,ROW($1:$6)/1%+IF(COLUMN(A1)

感谢！函数有点长我研究研究

wggx4 · 发表于 2020-2-2 08:49

感觉这个是比较简单的字典，留个言，慢慢学习

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

如何把行数据处理成字典列

评分