万能的EXCELHOME，帮我优化一个VB语句，在线急等（已解决）

handsomcao

原帖由 office2008 于 2011-7-20 21:19 发表
都是循环套循环，为何不用字典，一遍循环呢？

高手，我就是不会啊，能帮我搞一个吗

AVEL

汇总表数据是什么个意思啊？

handsomcao

就是把物料清单里的原材料的相同项汇总（因为有可能不同的成品而其所组成的某个原材料相同，所以要加总，方便一次性配料），若没有相同项那就只汇总他本身，物料清单是指从BOM表提取的，依据成品的套数，

[ 本帖最后由 handsomcao 于 2011-7-20 22:32 编辑 ]

AVEL

1. Sub 汇总()
   
2.     Dim dic As Object, dic1 As Object
   
3.     Dim ii%, jj%, nn%
   
4.     Dim hz, crr()
   
5.     Set dic = CreateObject("scripting.dictionary")
   
6.     Set dic1 = CreateObject("scripting.dictionary")
   
7.     For ii = 1 To UBound(brr, 2)
   
8.         dic(brr(2, ii)) = brr(6, ii)
   
9.     Next
   
10.     With Sheet4
    
11.         hz = .Range(.[o4], .[r65536].End(3)(2, 1))
    
12.     End With
    
13.     For ii = 1 To UBound(hz)
    
14.         dic1(hz(ii, 2)) = ""
    
15.         If dic.exists(hz(ii, 2)) Then hz(ii, 4) = hz(ii, 4) + dic(hz(ii, 2))
    
16.     Next
    
17.     For jj = 1 To UBound(brr, 2)
    
18.         If Not dic1.exists(brr(2, jj)) Then
    
19.             nn = nn + 1
    
20.             ReDim Preserve crr(1 To 4, 1 To nn)
    
21.             If hz(1, 1) = "" Then crr(1, nn) = nn Else crr(1, nn) = UBound(hz) + nn
    
22.             crr(2, nn) = brr(2, jj): crr(3, nn) = brr(3, jj): crr(4, nn) = brr(6, jj)
    
23.         End If
    
24.     Next
    
25.     With Sheet4
    
26.         .Range(.[o4], .[r65536].End(3)(2, 1)).ClearContents
    
27.         .[o4].Resize(UBound(hz), 4) = hz
    
28.         If nn > 0 Then .[o65536].End(3)(2, 1).Resize(nn, 4) = Application.Transpose(crr)
    
29.     End With
    
30. End Sub

复制代码

AVEL

试试。

handsomcao

老大，昨晚11点就睡了，不好意思没回，现在试了，出现如下画面。

handsomcao

为了能上传，我把需求的BOM删节了，现在我把实际的BOM内容补充后，再运行，怎么出现问题了，

handsomcao

原帖由 kwinawyeth 于 2011-7-20 20:25 发表
Sub TEST()
    Dim i As Long, j As Long, MyR As Long, MyC As Integer
    Range("g4:s" & Cells(65536, 7).End(3).Row).ClearContents
    MyR = 4
    MyC = 7
    With Sheets("BOM表")
        For i = ...

老大，你这个我试过，全部BOM表放上，也能用，只是你可能误会我的意思，我是说BOM表里面，放所有产品的BOM清单，放到65536就放不下了，只能另起H列存放，所以要把A~E和H~L都关联到“录入面界面”，我试了其它老师帮我编的，BOM累加到第76行有用，放大65536就出现问题，帮我看看

GEB_0219

用ACCESS吧，BOM的树形结构运算复杂程度高的多，

你可以在多个表中建BOM，在ACCESS中链接EXCEL表，编写UNion查询整合所有BOM

EXCEL表，你的产品BOM日积月累，将来维护都成问题

panan123_0

需求是不难。就是你数据多。我来试试