根据已知条件公式提取至指定单元格

RIYUEXING84

将A列不及格的工号数据函数公式集中提取C列，最好不用数组公式，几个数组公式在线文档都提示错误，表格工具正常。

bsgn2017

1. =DROP(UNIQUE(IF(C1=B2:B70,A2:A70,"")),1)

复制代码

swl4561255

1. Sub test()
   
2. ar = [A1].End(4).Row
   
3. arr = Range("A2:B" & ar)
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To ar - 1
   
6.     If arr(i, 2) = "不及格" Then
   
7.         If Not d.exists(arr(i, 2)) Then
   
8.             d(arr(i, 2)) = arr(i, 1)
   
9.         Else
   
10.             d(arr(i, 2)) = d(arr(i, 2)) & "-" & arr(i, 1)
    
11.         End If
    
12.     End If
    
13. Next
    
14. t = d.items
    
15. br = Split(t(0), "-")
    
16. [C2].Resize(UBound(br) + 1, 1) = Application.Transpose(br)
    
17. Set d = Nothing
    
18. End Sub

复制代码

沈默00

=FILTER(A:A,B:B=$C$1)

part98

1. =IFERROR(INDEX(A:A,SMALL(IF((B:B=$C$1),ROW($1:$99),999),ROW(A1))),"")

复制代码

下拉填充

hxj119

=TEXTJOIN(",",1,FILTER(A2:A70,B2:B70="不及格"))

mykitami

=FILTER(A2:A70,B2:B70=C1)

静听溪流

=IFERROR(FILTERXML("<a><b>"&TEXTJOIN("</b><b>",,A$2:B$70)&"</b></a>","//b[following::*[1]='"&$C$1&"']["&ROW(A1)&"]"),"")

RIYUEXING84

静听溪流 发表于 2024-5-13 21:23
=IFERROR(FILTERXML(""&TEXTJOIN("",,A$2:B$70)&"","//b[following::*[1]='"&$C$1&"']["&ROW(A1)&"]"),"")

在线文档公式导入，提示“不允许存在循环引用”，怎么规避？

静听溪流

RIYUEXING84 发表于 2024-5-14 11:02
在线文档公式导入，提示“不允许存在循环引用”，怎么规避？

这个公式是不存在的循环引用的
具体需要看到你是怎么使用的   才知道问题出在哪里