EXCEL公式运用
发布网友
共3个回答
热心网友
下面是代码：如果不会用自定义函数，就用数据透视表，透视下！或者去除重复着功能都可以！选中数据区域，点击数据选项卡-删除重复项即可！
Function Wsingle(rng1 As Range, x As Integer)Dim m As Range
Dim n As Range
Dim i As Integer
For Each m In rng1
k = k + 1
If k > Application.WorksheetFunction.CountA(rng1) + 10 Then Exit Function
If Application.WorksheetFunction.CountIf(rng1.Offset(k - 1, 0), m) = 1 Then
j = j + 1
If j = x Then
Wsingle = m
End If
End If
Next m
End Function
热心网友
见截图
B2输入=INDEX(A:A,MIN(IF(COUNTIF(B$1:B1,$A$2:$A$1000)=0,ROW($2:$1000),4^8)))&""
数组公式，先按住CTRL+SHIFT,最后回车
公式下拉
热心网友
为1都是不重复值
