为什么运算一次结果就会重复增加一次数据到表里？求大神帮忙看一下

边缘码农

1. Sub 价格统计表()
   
2.     Dim a, b, c, i
   
3.     Dim arr, brr
   
4.     Application.ScreenUpdating = False
   
5.     arr = Sheets("BOM表").[a1].CurrentRegion
   
6.     Sheets("价格统计表").Range("a1").AutoFilter
   
7.     For a = 8 To UBound(arr, 2) Step 4
   
8.         i = arr(1, a) & arr(2, a) & arr(3, a) & arr(4, a)
   
9.         brr = Sheets("价格统计表").[a1].CurrentRegion
   
10.         For b = 1 To UBound(brr)
    
11.             With Sheets("价格统计表")
    
12.                 c = brr(b, 1) & brr(b, 2) & brr(b, 3) & brr(b, 4)
    
13.                 If c = i Then
    
14.                     .Cells(b, 5) = arr(6, a + 1)
    
15.                     .Cells(b, 6) = arr(6, a + 3)
    
16.                 Else
    
17.                     If b = UBound(brr) Then
    
18.                         .Cells(b + 1, 1) = arr(1, a)
    
19.                         .Cells(b + 1, 2) = arr(2, a)
    
20.                         .Cells(b + 1, 3) = arr(3, a)
    
21.                         .Cells(b + 1, 4) = arr(4, a)
    
22.                         .Cells(b + 1, 5) = arr(6, a + 1)
    
23.                         .Cells(b + 1, 6) = arr(6, a + 3)
    
24.                     End If
    
25.                 End If
    
26.             End With
    
27.         Next b
    
28.     Next a
    
29.     Sheets("价格统计表").[a:q].NumberFormat = "@"
    
30.     Sheets("价格统计表").Range("a1").AutoFilter
    
31.     Application.ScreenUpdating = True
    
32. End Sub
    

复制代码

liulang0808

代码逻辑修改了，不知道理解对不对。

边缘码农

循环嵌套有问题。

nouce

边缘码农 发表于 2023-5-18 11:58
循环嵌套有问题。

数据量大的时候，这个运算很慢

nouce

liulang0808 发表于 2023-5-18 11:57
代码逻辑修改了，不知道理解对不对。

运算时，是有生成，点第二次时，最后一行就会变化，而且重复值没有去掉

liulang0808

nouce 发表于 2023-5-18 12:31
运算时，是有生成，点第二次时，最后一行就会变化，而且重复值没有去掉

在else部分增加字典赋值，在if位置对求和结果进行累加
如果还有问题，建议结合附件内容具体模拟需求以及实现步骤说明

准提部林

光給代碼無法正確判定//
1) 統計表有的, bom表也有的...更新? 還是累加?
2) 統計表有的, bom表沒有的...刪除? 還是保留?
3) BOM表是否只會有單一筆?

边缘码农

边缘码农

1. Sub 价格统计表()
   
2.     Dim a, b, c, i, j
   
3.     Dim arr, brr, crr
   
4.     Application.ScreenUpdating = False
   
5.     arr = Sheets("BOM表").[a1].CurrentRegion
   
6.     Sheets("价格统计表").Range("a1").AutoFilter
   
7.     ReDim crr(1 To 1000, 1 To 6)
   
8.     j = 1
   
9.     For a = 8 To UBound(arr, 2) Step 4
   
10.         i = arr(1, a) & arr(2, a) & arr(3, a) & arr(4, a)
    
11.         brr = Sheets("价格统计表").[a1].CurrentRegion
    
12.         th = False
    
13.         For b = 1 To UBound(brr)
    
14.             c = brr(b, 1) & brr(b, 2) & brr(b, 3) & brr(b, 4)
    
15.             If c = i Then
    
16.                 brr(b, 5) = arr(6, a + 1)
    
17.                 brr(b, 6) = arr(6, a + 3)
    
18.                 th = True
    
19.             End If
    
20.             If b = UBound(brr) And th = False Then
    
21.                 crr(j, 1) = arr(1, a)
    
22.                 crr(j, 2) = arr(2, a)
    
23.                 crr(j, 3) = arr(3, a)
    
24.                 crr(j, 4) = arr(4, a)
    
25.                 crr(j, 5) = arr(6, a + 1)
    
26.                 crr(j, 6) = arr(6, a + 3)
    
27.                 j = j + 1
    
28.             End If
    
29.         Next b
    
30.     Next a
    
31.     Sheets("价格统计表").[a:q].NumberFormat = "@"
    
32.     Sheets("价格统计表").[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    
33.     Sheets("价格统计表").Cells(UBound(brr) + 1, 1).Resize(j, 6) = crr
    
34.     Sheets("价格统计表").Range("a1").AutoFilter
    
35.     Application.ScreenUpdating = True
    
36. End Sub
    

复制代码

nouce

liulang0808 发表于 2023-5-18 12:38
在else部分增加字典赋值，在if位置对求和结果进行累加
如果还有问题，建议结合附件内容具体模拟需求以及 ...

是这样的，把BOM表里的数据更新到统计表里来，统计表里会有数据，但不会删除，一直保留