按分包人分类，汇总报审价和合同价、审核价

李伟杰123

按分包人分类，汇总报审价和合同价、审核价


按分包人汇总报审价和合同价、审核价.rar (45.87 KB, 下载次数: 14)

2024-10-28 10:31 上传

点击文件名下载附件

1.点击汇总  按钮，汇总上报价、合同价、审核价

2.点击提取汇总信息，提取上一步汇总的分包人 上报价、合同价、审核价

longwin

Sub test()
arr = Sheets("表一").[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
If arr(i, 1) = "" Then
xm = arr(i, 2)
fb = Split(arr(i, 2), " ")(1)
nfb = ""
For k = 1 To Len(fb)
    If Asc(Mid(fb, k, 1)) < 30 Then nfb = nfb & Mid(fb, k, 1)
Next
If Not d.exists(nfb) Then
d(nfb) = Array(arr(i, 4), arr(i, 5), arr(i, 6))
Else
d(nfb) = Array(d(nfb)(0) + arr(i, 4), d(nfb)(1) + arr(i, 5), d(nfb)(2) + arr(i, 6))
End If
End If
Next
ReDim brr(1 To d.Count, 1 To 4)
For Each fb In d.keys
    m = m + 1
    brr(m, 1) = fb
    brr(m, 2) = d(fb)(0)
    brr(m, 3) = d(fb)(1)
    brr(m, 4) = d(fb)(2)
Next
Sheets("汇总信息").[c20].Resize(m, 4) = brr
End Sub

longwin

附件供参考

sdytsxd991122

李伟杰123

longwin 发表于 2024-10-28 11:13
Sub test()
arr = Sheets("表一").[a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")

放到附件里能行吗，试一下

yanglinzi

是这样吗？