求老师帮忙写个VBA，根据物料清单B列汇总查找总档结存数，如结果显示

yysfcq1

求老师帮忙写个VBA，根据物料清单B列汇总查找总档结存数，如结果显示

ykcbf1100

VBA做的，如果你想用公式的话无视即可。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.27
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("总档")
   
5.         r = .Cells(Rows.count, 2).End(3).Row
   
6.         arr = .[a1].Resize(r, 8)
   
7.         ReDim Brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
8.         For i = 3 To UBound(arr)
   
9.             s = arr(i, 2)
   
10.             d(s) = d(s) + val(arr(i, 8))
    
11.         Next
    
12.     End With
    
13.     With Sheets("物料清单")
    
14.         r = .Cells(Rows.count, 1).End(3).Row
    
15.         For i = 2 To r
    
16.             st = .Cells(i, 1)
    
17.             If InStr(st, "+") Then
    
18.                 b = Split(st, "+")
    
19.                 sum = 0
    
20.                 For x = 0 To UBound(b)
    
21.                     sum = sum + d(b(x))
    
22.                 Next
    
23.                 .Cells(i, 2) = sum
    
24.             Else
    
25.                 .Cells(i, 2) = d(st)
    
26.             End If
    
27.         Next
    
28.     End With
    
29.     Set d = Nothing
    
30.     Application.ScreenUpdating = True
    
31.     MsgBox "OK！"
    
32. End Sub
    
33. 
    

复制代码

yysfcq1

ykcbf1100 发表于 2024-6-27 07:14
VBA做的，如果你想用公式的话无视即可。

老师能写成VBA函数吗

ykcbf1100

yysfcq1 发表于 2024-6-27 07:20
老师能写成VBA函数吗

你继续求助吧。

沈默00

=SUM(SUMIF(总档!$B:$B,TOCOL(TEXTSPLIT($A2,"+"),3),总档!$H:$H))   下拉

yysfcq1

沈默00 发表于 2024-6-27 07:31
=SUM(SUMIF(总档!$B:$B,TOCOL(TEXTSPLIT($A2,"+"),3),总档!$H:$H))   下拉

老师我怎么用不了这个公式

心的启点

yysfcq1 发表于 2024-6-27 08:21
老师我怎么用不了这个公式

公式求助要去专门的公式频道，这里只是VBA代码，好多会代码的不一定懂公式。

沈默00

yysfcq1 发表于 2024-6-27 08:21
老师我怎么用不了这个公式

365的函数，，，wps也可以用，，，
你的EXCEL版本不够高吧

沈默00

yysfcq1 发表于 2024-6-27 08:21
老师我怎么用不了这个公式

这个用老版的函数很难写出来的，，，
要不选高版本的函数，，要不就VBA处理，，没啥纠结的