[已解决]各位大侠！小弟跪求公式，急！

daminghh

各位大神！跪求公式，表中有A列和B列，B列数据在A列有的可以查找到，有的查找不到，现在要在C列输入公式呈现B列在A列中的数据，如匹配不上则返回“无”

最佳答案

月排行榜 / 总排行榜

windimi007

2014-5-22 09:26

1. =IF(B1="","",IFERROR(INDEX(A$1:A$1352,MATCH("*"&B1&"*",A$1:A$1352,)),"无"))

复制代码

跳转到最佳答案楼层

windimi007

1. =IF(B1="","",IFERROR(INDEX(A$1:A$1352,MATCH("*"&B1&"*",A$1:A$1352,)),"无"))

复制代码

江河行地

=IFERROR(OFFSET(A$1,MATCH(10,MMULT(--ISNUMBER(FIND(MID($B1,COLUMN(A:J),1),A$1:A$1352)),ROW($1:$10)^0),)-1,),"无")
数组公式　下拉

tgydslr

c1

1. =IFERROR(INDIRECT("a"&SMALL(IF(MMULT(IFERROR(FIND(TRANSPOSE(B$1:B$165),A$1:A$1352),),ROW($1:$165)),ROW($1:$1352)),ROW())),"")

复制代码

三键下拉

顺⑦.zì繎。

1. =IFERROR(VLOOKUP("*"&B2&"*",A:A,1,),"无")

复制代码

tgydslr

新建 Microsoft Office Excel 工作表.rar (37.37 KB, 下载次数: 6)

2014-5-22 10:04 上传

点击文件名下载附件

daminghh

谢谢各位大神！成功了！

ppp710715

来个VBA。

1. Sub ppp()
   
2. r = Cells(Rows.Count, 2).End(3).Row
   
3. k = Cells(Rows.Count, 1).End(3).Row
   
4. [c:c].Clear
   
5. For i = 1 To r
   
6. For j = 1 To k
   
7. n = InStr(Range("a" & j), Range("b" & i))
   
8. If n > 0 Then
   
9. Range("c" & i) = Range("a" & j)
   
10. Exit For
    
11. End If
    
12. If j = k And n <= 0 Then Range("c" & i) = "无"
    
13. Next
    
14. Next
    
15. End Sub
    

复制代码

baksy

顺⑦.zì繎。 发表于 2014-5-22 09:57

学习了!