求按条件自动分类统计

Sz军

多条件自动提取，分类统计

3190496160

帖子标题是分类汇总，但是，文件内的说明却是，不知道你呀干嘛

3190496160

是不是要根据名称，批号，牌号三个件，对重量求和？？？

Sz军

3190496160 发表于 2022-5-14 15:59
是不是要根据名称，批号，牌号三个件，对重量求和？？？

主要是想将前2个条件提取出来，名称和相应的牌号，谢谢

3190496160

Sz军 发表于 2022-5-14 16:03
主要是想将前2个条件提取出来，名称和相应的牌号，谢谢

数组+字典。两个条件去重复就行啊

Sz军

3190496160 发表于 2022-5-14 16:59
数组+字典。两个条件去重复就行啊

不会啊

3190496160

Sub 去重复()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b3:f" & r)
End With
ReDim arr(1 To UBound(ar), 1 To 2)
For i = 2 To UBound(ar)
    If Trim(ar(i, 2)) <> "" And Trim(ar(i, 3)) <> "" Then
        zf = Trim(ar(i, 2)) & "|" & Trim(ar(i, 3))
        t = d(zf)
        If t = "" Then
            k = k + 1
            d(zf) = k
            t = k
            arr(k, 1) = ar(i, 2)
            arr(k, 2) = ar(i, 3)
        End If
    End If
Next i
With Sheets("统计")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("a4:b" & rs) = Empty
    .[a4].Resize(k, 2) = arr
End With
MsgBox "ok!"
End Sub

3190496160

统计.rar (23.91 KB, 下载次数: 25)

2022-5-15 08:28 上传

点击文件名下载附件

Sz军

3190496160 发表于 2022-5-15 08:28

谢谢，但不是我想要的结果

3190496160

Sz军 发表于 2022-5-15 10:16
谢谢，但不是我想要的结果

呵呵呵呵，
给你代码了，最起码你得反馈一下目前的结果跟你要的有啥偏差吧，一句不是你要的，那你要的是啥？只有你自己知道吧