excel 列转行

pattonzhai · 发表于 2020-2-27 19:20

在列中有物料的变换的方式，希望转变成行，看看有多少成套的方式

pattonzhai · 发表于 2020-2-27 19:21

请各位老师帮忙看看怎么做，谢谢！

micch · 发表于 2020-2-27 19:37

好像是递归吧，数据不复杂到是数组循环一下就行，层级和数据多了还是得用合理的算法求解

pattonzhai · 发表于 2020-2-27 19:48

micch 发表于 2020-2-27 19:37
好像是递归吧，数据不复杂到是数组循环一下就行，层级和数据多了还是得用合理的算法求解

看来要学习一下递归算法了，现在刚开始学习正则表达式，接下来有新的目标了

micch · 发表于 2020-2-27 20:47

本帖最后由 micch 于 2020-2-27 20:57 编辑

pattonzhai 发表于 2020-2-27 19:48
看来要学习一下递归算法了，现在刚开始学习正则表达式，接下来有新的目标了

如果你好好模拟一份数据，老师们给你写个代码对你学习会很有帮助，就这个简单的数据，数组循环就可以了

Sub test()
arr = [b3].CurrentRegion.Offset(1)
ReDim brr(1 To UBound(arr))
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr) - 1
x = arr(i, 1)
n = 0
k = 0
Do
If Left(arr(i + n, 1), 1) = "H" Then
m = m + 1
k = k + 1
brr(m) = x & k & d(arr(i + n, 2)) & " " & arr(i + n, 1)
Else
d(arr(i + n, 1)) = d(arr(i + n, 2)) & " " & arr(i + n, 1)
End If
n = n + 1
If arr(i + n, 2) = "物料" Or i + n >= UBound(arr) Then Exit Do
Loop
i = i + n - 1
Next
For i = 1 To m
Cells(i + 9, 6).Resize(, UBound(Split(brr(i))) + 1) = Split(brr(i))
Next
End Sub

复制代码

一把小刀闯天下 · 发表于 2020-2-27 21:12

'F列路线没看懂，另外第7行示例可能有问题，C2并不是区间顶级物料，，，

Option Explicit

Sub test()
  Dim arr, i, j, k, p, s, cnt, m, n
  arr = Range("b5:c" & [b5].End(xlDown).Row + 1)
  ReDim brr(1 To 10 ^ 4) As String, crr(1 To UBound(arr, 1), 20) As String
  For i = 1 To UBound(arr, 1) - 1
If arr(i + 1, 2) = "物料" Or i = UBound(arr, 1) - 1 Then
   For j = p + 1 To i
      For k = p + 1 To i
      If arr(j, 2) = arr(k, 1) Then Exit For
      Next
      If k = i + 1 Then
      s = arr(j, 1): m = m + 1
      n = n + 1: crr(m, 0) = arr(j, 2): crr(m, 1) = s
      Do
         For k = p + 1 To i
            If s = arr(k, 2) Then
            cnt = cnt + 1: brr(cnt) = arr(k, 1)
            n = n + 1: crr(m, n) = arr(k, 1)
            End If
         Next
         If cnt = 0 Then n = 0: Exit Do
         s = brr(cnt): cnt = cnt - 1
      Loop
      End If
   Next
   i = i + 1: p = i
End If
  Next
  If m > 0 Then [g4].Resize(UBound(crr, 1), UBound(crr, 2) + 1) = crr
End Sub

一把小刀闯天下 · 发表于 2020-2-27 21:16

层级深度最多支持20级，自己可以修改

如果区间数据量很大可以加2个字典提高效率，，，

pattonzhai · 发表于 2020-2-27 22:05

一把小刀闯天下发表于 2020-2-27 21:16
层级深度最多支持20级，自己可以修改

如果区间数据量很大可以加2个字典提高效率，，，

谢谢，我好好学习研究一下

pattonzhai · 发表于 2020-2-27 22:25

还要好好理解一下，解题思路

飞天篮球猪 · 发表于 2020-2-27 22:53

Power Query解法，仅供参考...

let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
rcur = List.Combine(
Table.Group( 源,
"原料",
{"a",each let ar=Table.ToRows(Table.SelectRows(_,(x)=>x[原料]=_{[原料="物料"]}[状态])),
fx=(list)=>if _{[原料=List.Last(list{0})]}?=null then list else
@fx(List.TransformMany(list,
(v)=>{_{[原料=List.Last(v)]}[状态]},
(x,y)=>x&{y})),
rl=List.Accumulate( ar,
{{},1},
(s,c)=>{s{0}&fx({{c{1}&Text.From(-s{1}),c{1},c{0}}}),s{1}+1} )
in rl{0} },
0,(x,y)=>Byte.From(y="物料"))[a]
),
rslt = Table.FromList( rcur,
each _,
{"路线"} &
List.Transform({1..List.Max(List.Transform(rcur,List.Count))-1},each "步骤"&Text.From(_)) )
in
rslt

复制代码

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

[求助] excel 列转行

评分

评分

评分

评分

最新热点 /1