求助，怎样将生产排产表变成竖式顺序表？

shadowaqi

如表格，怎么将别人排的发料表变成竖式按日期顺序排序的表格以方便后面自己重新排产

shadowaqi

附件为表格

zpy2

[url=http://club.excelhome.net/thread-1430455-1-1.html]http://club.excelhome.net/thread-1430455-1-1.html[/url]

shadowaqi

zpy2 发表于 2021-4-27 12:54
http://club.excelhome.net/thread-1430455-1-1.html

哥，打不开

zpy2

shadowaqi 发表于 2021-4-27 14:28
哥，打不开

啥打不开？http://club.excelhome.net/thread-1430455-1-1.html

李南

最好用VBA实现：
Sub paichan()
Dim arr, brr
Dim i, j, k, h
Range("a33:e30000") = ""
i = Range("d10000").End(xlUp).Row
h = 1
arr = Range("a2:ah" & i - 1)
ReDim brr(1 To 3000, 1 To 5)
For k = 6 To 34
    For j = 2 To UBound(arr)
        If arr(j, k) <> "" Then
           brr(h, 1) = h
           brr(h, 2) = arr(j, 3)
           brr(h, 3) = arr(j, 4)
           brr(h, 4) = arr(j, k)
           brr(h, 5) = arr(1, k)
           h = h + 1
        End If
    Next
Next
Range("a33:e3033") = brr
End Sub

wt107

看你这需求，透视表简单就能解决。

singzhou

李南 发表于 2021-5-11 11:41
最好用VBA实现：
Sub paichan()
Dim arr, brr

大师，如果在增加2个字段，由现在5个变成7个字段，如何处理？谢谢！