求按条件自动分类统计

Sz军 · 发表于 2022-5-14 15:25

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

3190496160 · 发表于 2022-5-14 15:58

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

3190496160 · 发表于 2022-5-14 15:59

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

Sz军 · 发表于 2022-5-14 16:03

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

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

3190496160 · 发表于 2022-5-14 16:59

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

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

Sz军 · 发表于 2022-5-15 08:02

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

不会啊

3190496160 · 发表于 2022-5-15 08:27

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 · 发表于 2022-5-15 08:28

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

Sz军 · 发表于 2022-5-15 10:16

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

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

3190496160 · 发表于 2022-5-15 10:46

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

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

		自动登录	找回密码
密码			免费注册

[求助] 求按条件自动分类统计