如何知道某个单元格被包含于另一个区域内的具体某个单元格内？并返回相应值

yoot520

概括来说：如何知道sheet1中A2被包含于sheet2的A:B例中的哪个单元格，并将sheet2的C列返回到sheet1的B列中。
具体例子：在sheet2中的A:B列中寻找sheet1中A2，找到sheet2的B4包含sheet1的A2后，将sheet2的C4返回到sheet1的B2。。。。。sheet1的A列每个单元格都知道它的成本。

sheet1有两万多条数据，我真的快要崩溃了，哪位大神救救我，感激不尽。不管vba还是函数只要有用都可以，（为了保护公司数据，上传的版本我只保留一千多行）

solextrade

=IFERROR(LOOKUP(1,0/FIND(A2,sheet2!A$2:A$1000&sheet2!B$2:B$1000),sheet2!C$2:C$3),"")

ww87725244

1. =MIN(IFERROR(SEARCH("*"&A2&"*",sheet2!$A$1:$B$12,1)*sheet2!$C$1:$C$12,""))
   
2. 三键

复制代码

王嘉玲

1. =INDEX(sheet2!C:C,MATCH("*"&A2:A1676&"*",sheet2!A:A&sheet2!B:B,))

复制代码

选中a2到a1676单元格，输入公式，按ctrl+shift+enter数组公式。回车就行了。大约等几秒中就可以计算出来了。其他2位哥哥的公式貌似有点问题

yoot520

solextrade 发表于 2020-1-30 17:43
=IFERROR(LOOKUP(1,0/FIND(A2,sheet2!A$2:A$1000&sheet2!B$2:B$1000),sheet2!C$2:C$3),"")

太感谢了，用了一下，成功了

yoot520

ww87725244 发表于 2020-1-30 17:53

感谢，感谢

yoot520

王嘉玲 发表于 2020-1-30 18:49
选中a2到a1676单元格，输入公式，按ctrl+shift+enter数组公式。回车就行了。大约等几秒中就可以计算出来 ...

感谢美女啦

准提部林

一字之差, 可能差之千里, 完全比對較妥適:
Sub TEST()
Dim Arr, xD, i&, T$, A
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([sheet2!C1], [sheet2!A1].Cells(Rows.Count, 1).End(xlUp))
For i = 2 To UBound(Arr)
    T = UCase(Arr(i, 1))
    If T <> "" Then xD(T) = Arr(i, 3)
    For Each A In Split(UCase(Arr(i, 2)), ";")
        If A <> "" Then xD(A & "") = Arr(i, 3)
    Next
Next i
Arr = Range([sheet1!A2], [sheet1!A1].Cells(Rows.Count, 1).End(xlUp))
For i = 1 To UBound(Arr)
    T = UCase(Arr(i, 1))
    Arr(i, 1) = xD(T)
Next i
[sheet1!B2].Resize(UBound(Arr)) = Arr
End Sub

准提部林

換個方向處理, 看是否快一些:
Sub TEST_2()
Dim Arr, Brr, xD, i&, T$, A, B
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([sheet1!A2], [sheet1!A1].Cells(Rows.Count, 1).End(xlUp))
For i = 1 To UBound(Arr)
   T = UCase(Arr(i, 1)): Arr(i, 1) = ""
   If T <> "" Then xD(T) = Trim(xD(T) & " " & i)
Next i
Brr = Range([sheet2!C1], [sheet2!A1].Cells(Rows.Count, 1).End(xlUp))
For i = 2 To UBound(Brr)
    For Each A In Split(UCase(Brr(i, 1) & ";" & Brr(i, 2)), ";")
        If A <> "" And xD.Exists(A) Then
           For Each B In Split(xD(A), " ")
               Arr(B, 1) = Brr(i, 3)
           Next
        End If
    Next
Next i
[sheet1!B2].Resize(UBound(Arr)) = Arr
End Sub