D列输入A列 包含B的任何一个关键词 且 不包C的任何一个词）

cabcyvr

辅助列方法，供参考
辅助列 E2=IF(SUMPRODUCT((ISNUMBER(SEARCH("*"&$B$2:$B$8&"*",A2)))*(IFERROR(SEARCH("*"&$C$2:$C$7&"*",A2),1=1)))*1=0,"/",ROW())    下拉复制
D2=INDEX(A:A,SMALL(E:E,ROW(A1)))

准提部林

數組公式:
=INDEX(A:A,SMALL(IF(MMULT(ISNUMBER(0/(FIND(TRANSPOSE(B$2:B$45),1&A$2:A$500)>1))-4^8*ISNUMBER(0/(FIND(TRANSPOSE(C$2:C$45),1&A$2:A$500)>1)),ROW(2:45)^0)>0,ROW($2:$500),4^8),ROW(A1)))&""

卡檔免不了~~

shwangfeng

我也试了一下，E2数组公式，下拉：

1. =INDEX(A:A,SMALL(IF((--MMULT(--NOT(ISNUMBER(FIND(TRANSPOSE($C$2:$C$7),$A$2:$A$499))),--(C2:C7=C2:C7))=6)*(--MMULT(--(ISNUMBER(FIND(TRANSPOSE($B$2:$B$8),$A$2:$A$499))),--(B2:B8=B2:B8))>0),ROW($A$2:$A$499)),ROW(A1)))

复制代码

jd6688

cjc209 发表于 2018-7-11 11:03
期待高手出现

=IF(MIN(IF(ISERROR(FIND({"家居","礼物","工艺品","礼品","摆设","摆件"},A6)),"50",FIND({"家居","礼物","工艺品","礼品","摆设","摆件"},A6)))>=1,IF(MIN(IF(ISERROR(FIND({"流水","沙漏","貔貅","永动","旗舰店","悬浮"},A6)),"50",FIND({"流水","沙漏","貔貅","永动","旗舰店","悬浮"},A6)))=0,A6,""),"")

是不是如果含有B列任何一个并且不含C列任何一个就返还A列的内容？
如果B列和A列受限制的汉字不多，用这个方法可以解决你需要，

cjc209

shwangfeng 发表于 2018-7-11 12:59
我也试了一下，E2数组公式，下拉：

应该像准提部林 老师一样 应该侧重在除外条件上 避免在一个单元格内有两种条件存在的可能 所以这样才完美

1. =INDEX(A:A,SMALL(IF((MMULT(--(ISNUMBER(FIND(TRANSPOSE($B$2:$B$8),$A$2:$A$499))),--(B2:B8=B2:B8))-4^8*MMULT(--(ISNUMBER(FIND(TRANSPOSE($C$2:$C$7),$A$2:$A$499))),--(C2:C7=C2:C7)))>0,ROW($A$2:$A$499)),ROW(A1)))

复制代码

cjc209

这样的我有一段通用型VBA代码 并且是交互式的 数据区 条件在什么位置 或者有没有空单元格 都行

1. Sub 包含与排除条件取值()
   
2.     Dim arr, sd, i&, gjz, brr(), k, rng As Range, rng1 As Range, xx
   
3.     On Error Resume Next
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     Set yssjq = Application.InputBox(prompt:="请选择：原始数据区域", Type:=8)
   
6.     Set sjq = Application.InputBox(prompt:="请选择：要包含条件的区域", Type:=8)
   
7.     Set pcsjq = Application.InputBox(prompt:="请选择：要除外的条件区域", Type:=8)
   
8.     Set jgq = Application.InputBox(prompt:="请选择：结果摆放起始单元格", Type:=8)
   
9.     arr = yssjq
   
10.     For Each rng In sjq
    
11.         If rng = "" Then GoTo 5
    
12.         zf = rng.Value
    
13.         For i = 1 To UBound(arr)
    
14.             If arr(i, 1) Like "*" & zf & "*" Then
    
15.                 k = k + 1
    
16.                 ReDim Preserve brr(1 To k)
    
17.                 brr(k) = arr(i, 1)
    
18.             End If
    
19. 5:
    
20.         Next
    
21.     Next rng
    
22.     k = 0
    
23.     For Each rng1 In pcsjq
    
24.         If rng1 = "" Then GoTo 10
    
25.         pczf = rng1.Value
    
26.         For i = 1 To UBound(brr)
    
27.             If InStr(brr(i), pczf) > 0 Then
    
28.                 k = k + 1
    
29.                 brr(i) = ""
    
30.             End If
    
31. 10:
    
32.         Next
    
33.     Next rng1
    
34.     For ia = 1 To UBound(arr)
    
35.         For i = 1 To UBound(brr)
    
36.             If brr(i) <> "" And arr(ia, 1) = brr(i) Then
    
37.                 dic.Add arr(ia, 1), ""
    
38.             End If
    
39.         Next
    
40.     Next
    
41.     For Each xx In dic
    
42.     If xx = "" Then GoTo 20
    
43.         kk = kk + 1
    
44.         jgq(kk, 1) = xx
    
45. 20:
    
46.     Next
    
47. End Sub
    

复制代码

cjc209

有没有排除条件也行 没有排除条件 就在出现排除条件对话框是选一个空单元格就行 非常方便 且快捷 结果摆放位置由你自己决定

shwangfeng

cjc209 发表于 2018-7-12 18:42
应该像准提部林 老师一样 应该侧重在除外条件上 避免在一个单元格内有两种条件存在的可能 所以这样才完美

谢谢指点，我还没有仔细试过准提大佬那个解法，当初以为思路差不多就没有细看……
我会抽空再核对的！感谢你的耐心指正！今天没有鲜花了，明天补上！

cjc209

shwangfeng 发表于 2018-7-12 18:54
谢谢指点，我还没有仔细试过准提大佬那个解法，当初以为思路差不多就没有细看……
我会抽空再核对的！感 ...

它的-468*就是这个目的 不愧为见多识广

cjc209

并且是去了重复的