重复数据只计算一次的问题

Benfyhu

如图，重复数据只计算一次的问题，麻烦各位老师帮忙解决一下，非常感谢！

ynzsvt

你是要公式处理还是要代码处理，公式我不会，代码我会。

xlj310

仅仅把你的公式做成 自动识别 A列的个数。
=LET(数量,COUNTA(A:A),SUMPRODUCT(1/COUNTIF(INDIRECT("A1:A"&数量),INDIRECT("A1:A"&数量))))

loirol

新版本

=COUNTA(UNIQUE(A:.A))

=COUNTA(UNIQUE(A:.A&B:.B))


老版本

ykcbf1100

VBA参与一下。。。

ykcbf1100

字典经典用法之一

1. Sub ykcbf()   '//2024.11.29
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 2)
   
5.     ReDim brr(1 To r, 1 To 2)
   
6.     For i = 1 To UBound(arr)
   
7.         s = arr(i, 1)
   
8.         If Not d.exists(s) Then
   
9.             m = m + 1
   
10.             d(s) = m
    
11.             brr(m, 1) = s
    
12.         End If
    
13.         s = arr(i, 1) & "-" & arr(i, 2)
    
14.         If Not d.exists(s) Then
    
15.             n = n + 1
    
16.             d(s) = n
    
17.             brr(n, 2) = s
    
18.         End If
    
19.     Next
    
20.     Max = IIf(m < n, n, m)
    
21.     [d2].Resize(Max, 2) = brr
    
22.     Set d = Nothing
    
23.     MsgBox "OK！"
    
24. End Sub
    

复制代码

Benfyhu

ykcbf1100 发表于 2024-11-29 12:13
字典经典用法之一

你好，老师。我想要的是算出个数，不是列出重复值

Benfyhu

ynzsvt 发表于 2024-11-29 11:24
你是要公式处理还是要代码处理，公式我不会，代码我会。

代码也可以的，麻烦老师了。

longwin

自定义函数tj
=tj(A1:A20)  '统计A列
=tj(A1:B20)  '统计A+B列

ykcbf1100

Benfyhu 发表于 2024-11-29 13:40
你好，老师。我想要的是算出个数，不是列出重复值

上附件啊，统计个数更省力了。