这个用什么函数

ontheway007

估计是我的意思没有说清楚，最终目的是提取ID号，一个ID对应了01234不同尺码，取仅为1的ID和仅为1和0的两种情况，如果一个ID有0123，此ID不去，留下来的ID只有两种情况，一种是尺码为1，一种是尺码为1和0.

quqiyuan

你试试，数据量有点大，我的电脑测试前面看过是对的，后面不搞了，卡得不行，你测试一下

1. =INDEX(UNIQUE(FILTER($A$2:$A$44732,$B$2:$B$44732=1)),AGGREGATE(15,2,IF(ISNA(MATCH(UNIQUE(FILTER($A$2:$A$44732,$B$2:$B$44732=1)),UNIQUE(FILTER($A$2:$A$44732,($B$2:$B$44732<>1)*($B$2:$B$44732<>0))),)),ROW($1:$100000)),ROW(A1)))

复制代码

ontheway007

quqiyuan 发表于 2024-6-1 15:47
你试试，数据量有点大，我的电脑测试前面看过是对的，后面不搞了，卡得不行，你测试一下

能留个q么，我复制代码填进excle提示公式错误

ww87725244

1. Sub aa()
   
2. Dim ar, i, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. With Sheet1
   
5.     .Columns("h:h").ClearContents
   
6.     ar = .Range("a2:b" & .UsedRange.Rows.Count)
   
7.     For i = 1 To UBound(ar)
   
8.         If Not d.exists(ar(i, 1)) Then
   
9.             If ar(i, 2) = 1 Then
   
10.                 d(ar(i, 1)) = ar(i, 2)
    
11.             End If
    
12.         Else
    
13.             If ar(i, 2) > 1 Or ar(i, 2) = 0 Then
    
14.                 d.Remove ar(i, 1)
    
15.             Else
    
16.                 d(ar(i, 1)) = ar(i, 2)
    
17.             End If
    
18.         End If
    
19.     Next
    
20.     .Range("H3").Resize(d.Count) = Application.Transpose(d.keys)
    
21. End With
    
22. Set d = Nothing
    
23. End Sub

复制代码

quqiyuan

ontheway007 发表于 2024-6-1 15:51
能留个q么，我复制代码填进excle提示公式错误

什么错误，我这边没问题，下拉就可以了

bsgn2017

1. 辅助：=SUM(IF(A2*OR(B2*A2=A2,B2*A2=0)=A$2:A$44732,1,))>1

复制代码

1. E1=LET(s,REDUCE({"ID","次数"},A2:A5000*C2:C5000,LAMBDA(x,y,VSTACK(x,HSTACK(y,1+SUM(N(x=y)))))),FILTER(s,TAKE(s,,1)<>0))

复制代码

卡死了，只拉到5000行，下面的你自己测试

quqiyuan

vba吧，vba速度快多了，供参考吧

quqiyuan

改一下，刚才有点出入

ontheway007

quqiyuan 发表于 2024-6-1 16:36
改一下，刚才有点出入

666，请收下我的膝盖

象山海鲜

1. =LET(a,A2:A44732,b,B2:B44732,c,UNIQUE(a),FILTER(c,MMULT(--INDEX(FREQUENCY(a+SIGN(b-1)%,c+{-1,0,1}%)>0,N(IF(,,SEQUENCE(ROWS(c))*3-{0,1}))),{2;1})=1))

复制代码

计算量相对多些

1. =LET(a,A2:A44732,b,B2:B44732,FILTER(a,MMULT(--INDEX(FREQUENCY(a+SIGN(b-1)%,a+{-1,0,1}%)>0,N(IF(,,SEQUENCE(ROWS(a))*3-{0,1}))),{2;1})=1))

复制代码