部分字符串匹配然后返回值

Question

我正在努力快速代码库交易。我有一个下载银行数据的选项卡（表1），我想搜索与表2，列A的部分匹配（B列）。然后，如果找到了匹配1列D;和第2列，C列至1，列e。

表1

Column A    Column B                           Column C  Column D Column E       
11/1/17     Transfer from Account 60617829-D   276       {acct}   {location}
11/1/17     Transfer from Account 60692022-D   551.46    {acct}   {location}

表2

Column A     Column B (acct)   Column C (location)
60617829-D   10430             03
60692022-D   10490             09

我试图使用类似于"查找和获取"的解决方案：Excel公式/VBA在其他表格中搜索部分字符串

但是，以下代码将第一个值从表2返回到表1上的所有值，而无需匹配它们。我认为我的错误在于当我不需要时，我如何尝试使用数组，但我却茫然。

Sub findAndGet()
Dim sh1, sh2 As Worksheet
Dim tempRow1, tempRow2 As Integer
Dim strList() As String
Dim name As String
Dim index As Integer
'Set sheets
Set sh1 = Sheets("list")
Set sh2 = Sheets("search")
'Set the start row of Sheet1
tempRow1 = 1
'Loop all row from starRow until blank of column A in Sheet1
Do While sh1.Range("A" & tempRow1) <> ""
    'Get name
    name = sh1.Range("B" & tempRow1)
    'Split by space
    strList = Split(Trim(name), " ")
    'Set the start row of Sheet2
    tempRow2 = 1
    'Reset flag
    isFound = False
    'Loop all row from startRow until blank of column A in Sheet2
    Do While sh2.Range("A" & tempRow2) <> ""
        For index = LBound(strList) To UBound(strList)
            'If part of name is found.
            If InStr(UCase(sh2.Range("A" & tempRow2)), UCase(strList(index))) > 0 Then
                'Set true to search flag
                isFound = True
                'exit do loop
                Exit Do
            End If
        Next index
        'Increase row
        tempRow2 = tempRow2 + 1
    Loop
    'If record is found, set output
    If isFound Then
        'set account
        sh1.Range("D" & tempRow1) = sh2.Range("B" & tempRow2)
        'set location
        sh1.Range("E" & tempRow1) = sh2.Range("C" & tempRow2)
    End If
    'Increase row
    tempRow1 = tempRow1 + 1
  Loop
End Sub

Answer 1

如果可以接受公式解决方案，则假设数据在第2行2上都开始。

。

在平方插件的单元格D2中，公式下方并复制。 =LOOKUP(2^15,SEARCH(Sheet2!$A$2:$A$3,Sheet1!B2,1),Sheet2!$B$2:$B$3)

在平方插件的单元格E2中，公式下方并复制。 =LOOKUP(2^15,SEARCH(Sheet2!$A$2:$A$3,Sheet1!B2,1),Sheet2!$C$2:$C$3)