提取已知值所对应的行值

欢乐马20221029 · 发表于 2024-9-8 17:56

提取已知值所对应的行值

Excel_muke · 发表于 2024-9-8 18:37

I5=IFERROR(SMALL(IF($C$2:$D$11=$H5,ROW($C$2:$D$11)-1),COLUMN(A1)),"")

复制代码

用数组公式 CTRL+SHIFT+ENTER

Excel_muke · 发表于 2024-9-8 18:44

M365也可以用这一条

I5=FILTER(TOROW(IF($C$2:$D$11=$H5,ROW($C$2:$D$11)-1)),TOROW(IF($C$2:$D$11=$H5,ROW($C$2:$D$11)-1)))

复制代码

edwin11891 · 发表于 2024-9-8 19:11

=TOROW(FILTER(B$2:B$11,ISNUMBER(FIND(H4,C$2:C$11&D$2:D$11))))

复制代码

无关岁月 · 发表于 2024-9-8 19:12

本帖最后由无关岁月于 2024-9-8 19:26 编辑

=DROP(REDUCE("",UNIQUE(TOCOL(C2:D11,1)),LAMBDA(_a,_b,VSTACK(_a,HSTACK(_b,TOROW(FILTER(B2:B11,BYROW(N(C2:D11=_b),OR))))))),1)

复制代码

cnmlgb9998 · 发表于 2024-9-8 20:05

这样？？？？？？？？？？？？？？？？？？？？？？

ww87725244 · 发表于 2024-9-8 21:21

=DROP(LET(_a,CONCAT(UNIQUE(VSTACK(B2:C11,INDEX(B2:D11,ROW(1:10),{1,3})))),_b,UNIQUE(TOCOL(C2:D11)),REDUCE("",_b,LAMBDA(x,y,VSTACK(x,HSTACK(y,REGEXEXTRACT(_a,"\d+(?="&y&")",1)))))),1)

ww87725244 · 发表于 2024-9-8 22:32

=DROP(REDUCE("",UNIQUE(TOCOL(C2:D11)),LAMBDA(x,y,VSTACK(x,HSTACK(y,TOROW(UNIQUE(TOCOL(IF(C2:D11=y,B2:B11,0/0),3))))))),1)

zhangcheng6688 · 发表于 2024-9-9 07:54

学习一下字典，打扰了
Sub test()
arr = [b2].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
For j = 2 To UBound(arr, 2)
   If Not d.exists(arr(i, j)) Then
      d(arr(i, j)) = i
   Else
      ss = Split(d(arr(i, j)), ",")
      For k = 0 To UBound(ss)
         If i = Val(ss(k)) Then
            GoTo x
         End If
      Next
      d(arr(i, j)) = d(arr(i, j)) & "," & i
   End If
x:
Next
Next
ReDim brr(1 To UBound(arr), 1 To 1000)
For Each kk In d.keys
m = m + 1
brr(m, 1) = kk
ss = Split(d(kk), ",")
n = 1
For i = 0 To UBound(ss)
   n = n + 1
   brr(m, n) = ss(i)
Next
If Max < n Then
   Max = n
End If
Next
[h4].Resize(m, Max) = brr
End Sub

沈默00 · 发表于 2024-9-9 07:57

本帖最后由沈默00 于 2024-9-9 08:00 编辑

=TOROW(IF($C$2:$D$11=$H4,$B$2:$B$11,默),3) 下拉
=UNIQUE(TOROW(IF($C$2:$D$11=$H4,$B$2:$B$11,默),3),1) 不重复的行数，，

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

[求助] 提取已知值所对应的行值

评分

评分