如何把客户订单自动转换成需要的格式？

long2505

备注：就是要把原始订单的横向的码数和数量，转换成订单表的竖的码数和数量
      不知道能否用函数或者公式解决？？还是要用到VBA？  
     EXCEL新手，还不熟悉使用函数公式，VBA，请各位高手帮忙！谢谢！

long2505

自己顶起，等待高手解答！谢谢！

sdong7

可以用VBA来解决呀，我来帮你

sdong7

1. Sub test()
   
2. Dim mxr1, mxr2 As Long
   
3. Dim arr1, arr2(1 To 100000, 1 To 6), arr3
   
4. mxr1 = Sheets("原始订单表").[b60000].End(xlUp).Row
   
5. mxr2 = Sheets("订单表").[b60000].End(xlUp).Row
   
6. arr1 = Sheets("原始订单表").Range("b4:j" & mxr1)
   
7. m = 0
   
8. 
   
9. For i = 1 To UBound(arr1)
   
10. m = m + 1
    
11. For j = 5 To 9
    
12. mm = mm + 2
    
13. If arr1(i, j) > 0 Then
    
14. arr2(m, 5) = mm
    
15. arr2(m, 6) = arr1(i, j)
    
16. Else
    
17. GoTo 100
    
18. End If
    
19. For k = 1 To 4
    
20. arr2(m, k) = arr1(i, k)
    
21. Next k
    
22. m = m + 1
    
23. 100
    
24. Next j
    
25. 
    
26. mm = 0
    
27. Next i
    
28. 
    
29. ReDim arr3(1 To m, 1 To 6)
    
30. 
    
31. For i = 1 To m
    
32. If arr2(i, 1) > 0 Then
    
33. t = t + 1
    
34. For h = 1 To 6
    
35. arr3(t, h) = arr2(i, h)
    
36. Next h
    
37. 
    
38. 
    
39. End If
    
40. 
    
41. Next i
    
42. 
    
43. Sheets("订单表").Range("a3").Resize(m, 6) = arr3
    
44. 
    
45. End Sub

复制代码

sdong7

传上附件，用VBA的

long2505

sdong7 发表于 2014-7-25 09:20
传上附件，用VBA的

太感谢了！还多一个删除数据的，考虑周到！
这个如果前面多几个列的话，带进VBA里面有影响输出结果吗？
  

liaison_5080

我也有个表要变成竖排的。。可以帮我吗？

liaison_5080

加我QQ：541064861，谢谢！