模糊条件去重的计数统计-请教大神

zgx448235993

需要统计库位为ZH开头的退货位，库位去除重复项，且尾数为123的库位，统计个数有多少个感谢各位大神了，折腾了1天都没整出来

xuleiren

尾数123的库位没有啊

liyanghu

尾数123的有，但是同时开头是"ZH"的就没有

zgx448235993

liyanghu 发表于 2020-2-21 16:46
尾数123的有，但是同时开头是"ZH"的就没有

比如库位ZH010211，尾数是1，或者2，或者3。是这个意思，可能描述不清楚

zgx448235993

xuleiren 发表于 2020-2-21 16:42
尾数123的库位没有啊

应该数末尾数等于1，或者等于2，或者等于3，是这个意思。我描述成123了。不好意思造成误解了

zgx448235993

可能内容的尾数123描述不是很清楚，意思就是库位的末尾数是1或者2或者3的库位。大于3的不计入统计范围

hcm19522

=SUMPRODUCT((MATCH(""&E66:E6999,""&E66:E6999,)=ROW(1:6934))*(LEFT(E66:E6999,2)="ZH")*OR(RIGHT(E66:E6999)-{1,2,3}=0))

zgx448235993

hcm19522 发表于 2020-2-21 17:24
=SUMPRODUCT((MATCH(""&E66:E6999,""&E66:E6999,)=ROW(1:6934))*(LEFT(E66:E6999,2)="ZH")*OR(RIGHT(E66:E6 ...

老哥，整出来了，感谢啊。但是好像计数的个数是包含了尾数大于3的个数

鄂龙蒙

1. Sub 统计()
   
2.     Dim i, arr, x, a, sa, d
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.      [A4:D10000] = Empty
   
5.     sa = Array(1, 2, 3)
   
6.     arr = Sheet1.UsedRange
   
7.     For i = 2 To UBound(arr)
   
8.         If arr(i, 6) = "退货位" And InStr(arr(i, 5), "ZH") Then
   
9.             a = Right(arr(i, 5), 1)
   
10.             For x = 0 To 2
    
11.                 If Val(a) = sa(x) Then
    
12.                     d(arr(i, 5)) = d(arr(i, 5)) + 1
    
13.                 End If
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     [A4].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
18.     [D4] = "不重复库位个数：" & d.Count
    
19.     Set d = Nothing
    
20. End Sub

复制代码

鄂龙蒙

请测试：

基础数据表.rar (444.82 KB, 下载次数: 8)

2020-2-21 17:54 上传

点击文件名下载附件