求助汇总代码

wulunting

统计表公式过多，会出现变慢的情况。能不能做个VBA代码，把销售记录表的‘箱数’统计到这个表格来，谢谢了

shiruiqiang

---------------------------

ykcbf1100

三表一键统计

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.2.26
   
2.     Dim arr, brr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("销售记录表")
   
6.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 13)
   
8.     End With
   
9.     fn = [{"直口统计表","螺口统计表","其它出库统计表"}]
   
10.     For i = 8 To UBound(arr)
    
11.         st = arr(i, 8)
    
12.         st = Replace(Replace(st, "/", ""), " ", "")
    
13.         rq = Format(arr(i, 6), "yyyy年m月份")
    
14.         s = rq & "|" & st
    
15.         d(s) = d(s) + arr(i, 13)
    
16.     Next
    
17.     For Each Sht In Sheets(fn)
    
18.         With Sht
    
19.             brr = .[g5:o18]
    
20.             For i = 2 To UBound(brr)
    
21.                 For j = 2 To UBound(brr, 2)
    
22.                     s = brr(i, 1) & "|" & Replace(brr(1, j), Chr(10), "")
    
23.                     st = brr(1, j)
    
24.                     If d.Exists(s) Then
    
25.                         brr(i, j) = d(s)
    
26.                     End If
    
27.                 Next
    
28.             Next
    
29.             .[g5:o18] = brr
    
30.         End With
    
31.     Next
    
32.     Set d = Nothing
    
33.     Application.ScreenUpdating = True
    
34.     MsgBox "OK！"
    
35. End Sub
    

复制代码