多条件匹配统计

cowrn

兄提，提个2个小小的建议哈，1、左表的条件区域里的名称里面的字符串以及字体格式（全角半角）最好和右表数据源里的一摸一样，不然只会增加无意义的匹配难度。如果只是样板是错乱的，你实际工作中用的时候是一样的话，那就没有问题。2、管段长度列里，既然标题行里已经注明了单位是（m)，那真没必要在下面数据里再加上m，当然硬要加上m的话，VBA也是很容易处理的，但是感觉没意义。以上纯属个人建议哈。
然后，下面代码是我把以上2点修正后给出的代码，如果和你的需求不一样，请忽略。

Sub test()
    Dim arr, brr
    Dim i As Integer, j As Integer
    Dim dic As Object
   
    arr = Range("B1:E13")
    brr = Range("G1:I11")
   
    For i = 2 To UBound(arr)
        For j = 2 To UBound(brr)
            If arr(i, 1) & "DN" & arr(i, 2) = brr(j, 1) & brr(j, 2) Then
                arr(i, 3) = arr(i, 3) + brr(i, 3)
                arr(i, 4) = arr(i, 4) + 1
            End If
        Next
    Next
   
    Range("B1").Resize(UBound(arr), UBound(arr, 2)) = arr
   
End Sub

于箱长

zhangqi2534797 发表于 2022-11-19 10:16
不不不 你才是大哥 能帮我看看怎么用VBA解决吗？ 我写sql逻辑是先数据处理，然后group by 分组汇总，最后 ...

能写一个完整的SQL吗？我学习一下

于箱长

于箱长 发表于 2022-11-19 10:40
笨办法来一个

fzxba

1. Sub test1()
   
2.   Dim ar, br, Re As Object, Dict As Object
   
3.   Dim i As Long, p As Long, sStr As String
   
4.   Set Dict = CreateObject("Scripting.Dictionary")
   
5.   Set Re = CreateObject("VBScript.Regexp")
   
6.   Re.Global = True
   
7.   Re.Pattern = "([\u4e00-\u9fa5]+)([(（]+)([A-Za-z]+)([)）]+)(\d+)"
   
8.   With Range("E1", Cells(Rows.Count, "B").End(xlUp))
   
9.     Intersect(.Offset(0, 0), .Offset(1, 2)).ClearContents
   
10.     ar = .Value
    
11.   End With
    
12.   For i = 2 To UBound(ar)
    
13.     sStr = Re.Replace(Trim(ar(i, 1)) & Trim(ar(i, 2)), "($3)$1道|$5")
    
14.     If Not Dict.Exists(sStr) Then Dict.Add sStr, i
    
15.   Next
    
16.   Re.Pattern = "([A-Za-z]+)(\d+)"
    
17.   br = Range("I1", Cells(Rows.Count, "G").End(xlUp)).Value
    
18.   For i = 2 To UBound(br)
    
19.     sStr = Trim(Replace(Replace(br(i, 1), "（", "("), "）", ")")) & Re.Replace(br(i, 2), "|$2")
    
20.     If Dict.Exists(sStr) Then
    
21.       p = Dict(sStr)
    
22.       ar(p, 3) = Val(ar(p, 3)) + Val(br(i, 3)) & "m"
    
23.       ar(p, 4) = ar(p, 4) + 1
    
24.     End If
    
25.   Next
    
26.   Range("B1").Resize(UBound(ar), UBound(ar, 2)) = ar
    
27.   Set Re = Nothing
    
28.   Set Dict = Nothing
    
29.   Beep
    
30. End Sub

复制代码

zpy2

zhangqi2534797 发表于 2022-11-19 09:40
样板文件发出来了 我本来想写sql的 但是领导要求写VBA 我就很惆怅

想写sql的 但是领导要求写VBA 我就很惆怅

你的sql也是在线sql，不用vba?

select 名称,管径（mm）, sum(regexp2('\d+',管段长度（m）)) 管段长度（m） from 正则表达式数据清洗后获取数值后分类合计 group by 名称,管径（mm）

zpy2

于箱长 发表于 2022-11-19 11:29
能写一个完整的SQL吗？我学习一下

select 名称,管径（mm）, sum(regexp2('\d+',管段长度（m）)) 管段长度（m） from 正则表达式数据清洗后获取数值后分类合计 group by 名称,管径（mm）

于箱长

zpy2 发表于 2022-11-19 11:50
select 名称,管径（mm）, sum(regexp2('\d+',管段长度（m）)) 管段长度（m） from 正则表达式数据清洗后 ...

非常感谢，我恰好是SQL和正则都不会

笨鸟飞不高

样板.zip (16.68 KB, 下载次数: 14)

2022-11-19 13:36 上传

点击文件名下载附件

准提部林

zhangqi2534797 发表于 2022-11-19 09:39
已上传文件

左右項目文字組成不一致, 若只是一種還好處理,
如有多種, 最好上傳更完整的~~

zhangqi2534797

于箱长 发表于 2022-11-19 11:29

select jg.*,a.c,a.d from (select '(WS)污水管道' as A ,B from jg ) as jg
left join
(select
        '(WS)污水管道' as A ,replace(B,'DN','') as B
        ,sum(CAST(replace(C,'m','') AS SIGNED integer)) as c, count(A)  as d from b1
        group by A,B) as a
       
       
        on  a.A=jg.A and a.B=jg.B
我写的大概也是这样