求大神帮帮忙！

学生的方式的

汇总工作表的C列里要是有等于米粉或者辅食小件里的A列的单号时插入一行，A，B,C,D,F,G,H,I,K都是等于上行的内容，e列里插入的行的话等于米粉或者辅食小件的C列，E列插入的行的上一行则等于自身的数减去插入行的数（插入行的数是米粉或者辅食小件的C列）。求大神帮帮忙，我已经琢磨了一天了还是没琢磨出来，所以来请教一下，我这个到底是哪里出问题了，件数总是不对(件数是E列执行后等于720才是正确的）能不能帮我修改一下我的代码，感激不尽！

1. '  Dim arr, azz
   
2.   '  Set d = CreateObject("scripting.dictionary") '字典
   
3.    ' Set f = CreateObject("scripting.dictionary")
   
4.     'With Sheets("辅食小件") '作用于工作表
   
5.       '  arr = Sheets("辅食小件").UsedRange 'arr = 使用的单元格
   
6.        ' azz = Sheets("米粉").Range([a1], [a65536].End(3))
   
7.        ' For i = 1 To UBound(arr) ' i = 1到 使用的单元格
   
8.       
   
9.             
   
10.             
    
11.         '    d(arr(i, 1)) = i '字典 中的第一行等于 i
    
12.         '    For Z = 1 To UBound(azz)
    
13.         '
    
14.       '      f(azz(Z, 1)) = Z
    
15.      '   Next: Next
    
16.    
    
17.    ' End With
    
18.    
    
19. 
    
20.    
    
21.   '  With Sheets("汇总工作表")
    
22.   '      R = [a65536].End(xlUp).Row
    
23.     '    arr = .Range("a1:c" & R)
    
24.   '      For i = R To 1 Step -1
    
25.             
    
26.             
    
27.             
    
28.          '   If d.exists(arr(i, 3)) Then
    
29.          '       Rows(i + 1).Insert
    
30.       '          Cells(i + 1, 1) = Cells(i, 1)
    
31.        '         Cells(i + 1, 2) = Cells(i, 2)
    
32.        '         Cells(i + 1, 3) = Cells(i, 3)
    
33.        '         Cells(i + 1, 4) = Cells(i, 4)
    
34.       '          Cells(i + 1, 6) = Cells(i, 6)
    
35.        '         Cells(i + 1, 7) = Cells(i, 7)
    
36.         '        Cells(i + 1, 8) = Cells(i, 8)
    
37.          '       Cells(i + 1, 9) = Cells(i, 9)
    
38.         '        Cells(i + 1, 11) = Cells(i, 11)
    
39.        '         Cells(i + 1, 10) = "辅食小"
    
40.         '        Cells(i + 1, 5) = Application.VLookup(Cells(i + 1, 3), Worksheets("辅食小件").Range("A:C"), 3, 0)
    
41.               
    
42.             
    
43.            '        End If
    
44.         
    
45.    
    
46.    
    
47.    'If f.exists(arr(i, 3)) Then
    
48.    
    
49.   '  Rows(i).Insert
    
50.            '     Cells(i - 1, 1) = Cells(i, 1)
    
51.            '     Cells(i - 1, 2) = Cells(i, 2)
    
52.            ''     Cells(i - 1, 3) = Cells(i, 3)
    
53.              '   Cells(i - 1, 4) = Cells(i, 4)
    
54.             '    Cells(i - 1, 6) = Cells(i, 6)
    
55.              '   Cells(i - 1, 7) = Cells(i, 7)
    
56.              '   Cells(i - 1, 8) = Cells(i, 8)
    
57.              '   Cells(i - 1, 9) = Cells(i, 9)
    
58.              '   Cells(i - 1, 11) = Cells(i, 11)
    
59.              '   Cells(i - 1, 10) = "米粉"
    
60.              '   Cells(i - 1, 5) = Application.VLookup(Cells(i - 1, 3), Worksheets("米粉").Range("A:C"), 3, 0)
    
61.    
    
62.                   
    
63.                '    End If
    
64.     '    If f.exists(arr(i, 3)) Or d.exists(arr(i, 3)) Then Cells(i, 5) = Cells(i, 5) - (Cells(i + 1, 5) + Cells(i - 1, 5))
    
65.         
    
66.         
    
67.         
    
68.    
    
69.       '  If Cells(i + 2, 10) & Cells(i + 1, 10) = "米粉小听粉" Or Cells(i + 2, 10) & Cells(i + 1, 10) = "米粉产品" Then  Cells(i, 5) = Cells(i + 1, 5) + Cells(i, 5)
    
70.      
    
71.   
    
72.       
    
73.      '
    
74.     '   Next
    
75.    
    
76. '   End With

复制代码

学生的方式的

有人吗o(╥﹏╥)o

fyure

现在的附件E列相加不就是720吗

不知道为什么

学生的方式的 发表于 2019-3-4 21:21
有人吗o(╥﹏╥)o

问题都不难，也得自己把附件的逻辑说清楚把

2个表的辅助字符相同该取哪个值呢？

学生的方式的

fyure 发表于 2019-3-4 21:59
现在的附件E列相加不就是720吗

现在附件没执行，执行出来的效果应该是单号在表2和表3出现的都插入一行，然后件数要减去表2表3单号相同的件数

学生的方式的

不知道为什么 发表于 2019-3-4 22:03
问题都不难，也得自己把附件的逻辑说清楚把

2个表的辅助字符相同该取哪个值呢？

都取，在两个表要是有重复的值，就插入两行，件数也是减去这插入的返回表2表3的件数

学生的方式的

不知道为什么 发表于 2019-3-4 22:03
问题都不难，也得自己把附件的逻辑说清楚把

2个表的辅助字符相同该取哪个值呢？

我把附件重新上传下

不知道为什么

学生的方式的 发表于 2019-3-4 22:38
我把附件重新上传下

如图，这个意思？

学生的方式的

不知道为什么 发表于 2019-3-5 00:17
如图，这个意思？

大神是这个意思，但是直接在原来的区域生成就好了，不用生成在旁边。

学生的方式的

不知道为什么 发表于 2019-3-5 00:17
如图，这个意思？

还有J列如果是工作表米粉里有的则变成“米粉”，是工作表辅食小件里有的则变成”辅食小”。就是j+1，j+2单元格变成工作表2，工作表3的名字