B2=COUNTIF(D:D,A2)
或者=IF(OR(A2={"c";"d";"e";"s"}),1,0)
向下复制，筛选等于1的行并删除即可。
如果直接用公式导出结果，则
B2=INDEX(A:A,SMALL(IF(COUNTIF($D$2:$D$5,$A$2:$A$7),2^20,ROW($A$2:$A$7)),ROW(A1)))&""
数组公式向下复制【数组公式，公式输完后，光标放在公式编辑栏同时按下CTRL+SHIFT+回车键，使数组公式生效】
函数不能删除别的格的数据，VBA可以
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024