[已解决]ERP生产领料单及想要的汇总

macarons

新手求高手做个样版 ERP生产领料单及想要的汇总.rar (17.24 KB, 下载次数: 58)

2012-2-22 21:31 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-2-22 22:07

1. Sub a()
   
2. Dim arr(), i As Integer, sh As Worksheet, k As Integer, rng
   
3. For Each sh In Worksheets
   
4. If sh.Name <> "想象中的领料汇总单" Then
   
5. With sh
   
6. rng = rng & " " & .Range("f6")
   
7. For i = 14 To .[g65536].End(3).Row
   
8. If .Cells(i, "g") <> "" Then
   
9. k = k + 1
   
10. ReDim Preserve arr(1 To 8, 1 To k)
    
11. arr(1, k) = .Cells(i, "a")
    
12. arr(2, k) = .Cells(i, "g")
    
13. arr(3, k) = .Cells(i, "k")
    
14. arr(4, k) = .Cells(i, "r")
    
15. arr(5, k) = .Cells(i, "u")
    
16. arr(6, k) = .Cells(i, "w")
    
17. arr(7, k) = .Cells(i, "aa")
    
18. arr(8, k) = .Cells(i, "ab")
    
19. End If
    
20. Next i
    
21. End With
    
22. End If
    
23. Next sh
    
24. Worksheets("想象中的领料汇总单").Range("a2") = "单据编号:" & rng
    
25. Worksheets("想象中的领料汇总单").Range("a4").Resize(UBound(arr, 2), 8) = Application.Transpose(arr)
    
26. End Sub

复制代码

跳转到最佳答案楼层

zjcat35

1. Sub a()
   
2. Dim arr(), i As Integer, sh As Worksheet, k As Integer, rng
   
3. For Each sh In Worksheets
   
4. If sh.Name <> "想象中的领料汇总单" Then
   
5. With sh
   
6. rng = rng & " " & .Range("f6")
   
7. For i = 14 To .[g65536].End(3).Row
   
8. If .Cells(i, "g") <> "" Then
   
9. k = k + 1
   
10. ReDim Preserve arr(1 To 8, 1 To k)
    
11. arr(1, k) = .Cells(i, "a")
    
12. arr(2, k) = .Cells(i, "g")
    
13. arr(3, k) = .Cells(i, "k")
    
14. arr(4, k) = .Cells(i, "r")
    
15. arr(5, k) = .Cells(i, "u")
    
16. arr(6, k) = .Cells(i, "w")
    
17. arr(7, k) = .Cells(i, "aa")
    
18. arr(8, k) = .Cells(i, "ab")
    
19. End If
    
20. Next i
    
21. End With
    
22. End If
    
23. Next sh
    
24. Worksheets("想象中的领料汇总单").Range("a2") = "单据编号:" & rng
    
25. Worksheets("想象中的领料汇总单").Range("a4").Resize(UBound(arr, 2), 8) = Application.Transpose(arr)
    
26. End Sub

复制代码

macarons

谢谢！明天我上班再导入其它表试试！

cat41662385

看不明白的代码