如果找到，数组中的 InStr 不填充值

Question

我编写了下面的代码来在工作表“CX”列 D 中的工作表“Fusion”列 H 中搜索一个值（供应商名称）。我也在做相反的检查，所以如果相同的值工作表 CX 中的（供应商名称）在工作表“Fusion”中。我不是在寻找精确匹配，因此使用 Instr 并以两种方式进行比较，因为我不确定用户如何在任一工作表中输入信息。

任一单元格中的数据类型应为文本。 如果找到匹配项，则在工作表“CX”的最后一列中，它应该只填充“找到供应商”或“未找到供应商”

目前它没有用任何数据填充最后一列，但宏在任何时候都没有出错。

我尝试添加 msgboxes 并且“Here”和“Here3”被触发，但它似乎没有触及“Here2”的代码部分，所以我认为它是导致问题的原因，但不确定如何解决。

我的数据截图是：CX Sheet 融合表

任何帮助将不胜感激。

Option Explicit


Sub CompareCXFusion()

Dim CX As Worksheet
Dim Fusion As Worksheet

Dim strTemp as string
Dim strCheck as string

Dim i As Long, J As Long

Dim CXArr As Variant
Dim FusionArr As Variant

Dim match As Boolean

Dim CXRng As Range
Dim FusionRng As Range

Set CX = ActiveWorkbook.Sheets("CX")
Set Fusion = ActiveWorkbook.Sheets("Fusion")

Set CXRng = CX.Range("A2", CX.Cells(Rows.Count, "A").End(xlUp).Offset(0, 6))
Set FusionRng = Fusion.Range("A2", Fusion.Cells(Rows.Count, "A").End(xlUp).Offset(0, 9))

CXArr = CXRng.Value2
FusionArr = FusionRng.Value2

strTemp = lcase(trim(FusionArr(J, 7)))  
strCheck = lcase(trim(CXArr(i, 3))) 


For i = 1 To UBound(CXArr)
    Match = False
        For J = 1 To UBound(FusionArr)
        MsgBox "Here"
            If (Instr(strTemp, strCheck) > 0) OR (InStr(strCheck, strTemp) > 0) Then
                MsgBox"Here2"
                CXArr(i, 6) = "Supplier Found"
            Else
            Msgbox"Here3"
                CXArr(i, 6) = "Supplier not found"

        End If
    Next J
Next i
End Sub

我期望的预期输出是：如果在 Fusion 的 H 列中，供应商名称是“供应商 A”，并且工作表“CX”的 D 列中的值是“供应商 A LTD”，那么我希望它用“Supplier Found”填充工作表 CX 中的 G 列，因为它是在字符串中找到的。

如果您需要更多信息，请告诉我。

我不知道如何正确插入我的数据示例，否则我会有

Answer 1

Option Explicit
Sub CompareCXFusion()
    Dim CX As Worksheet
    Dim Fusion As Worksheet
    Dim i As Long, J As Long, lastRowCX As Long, lastRowFU As Long
    Dim CXText As String, FusionText As String
    Dim match As Boolean
    Dim CXRng As Range, FusionRng As Range

    Set CX = ActiveWorkbook.Sheets("CX")
    Set Fusion = ActiveWorkbook.Sheets("Fusion")

    lastRowCX = CX.Range("D1").SpecialCells(xlCellTypeLastCell).Row - 1
    lastRowFU = Fusion.Range("H1").SpecialCells(xlCellTypeLastCell).Row - 1

    Set CXRng = CX.Range("D1:D" & lastRowCX)
    Set FusionRng = Fusion.Range("H1:H" & lastRowFU)

    For i = 1 To lastRowCX
        match = False
            For J = 1 To lastRowFU
            'Debug.Print "Here"
                FusionText = FusionRng.Range("A1").Offset(J, 0).Value
                CXText = CXRng.Range("A1").Offset(i, 0).Value
                If FusionText <> "" And CXText <> "" Then
                If InStr(FusionText, CXText) Or InStr(CXText, FusionText) Then
                    'Debug.Print "Here2"
                    match = True
                End If
                End If
            Next J


        'Result goes to column G of CX range:
        If match Then
            CXRng.Range("A1").Offset(i, 3).Value = "Supplier found" ' "Supplier found - " & i & " - " & CXRng.Range("A1").Offset(i, 0).Address & " - " & CXRng.Range("A1").Offset(i, 3).Address
        Else
            CXRng.Range("A1").Offset(i, 3).Value = "Supplier NOT found" '"Supplier NOT found - " & i & " - " & CXRng.Range("A1").Offset(i, 0).Address & " - " & CXRng.Range("A1").Offset(i, 3).Address
        End If

    Next i
End Sub

Answer 2

您需要确保检查是否区分大小写：

    Dim strTemp as string
    Dim strCheck as string 


    'Inside for I loop
        'Inside for j Loop
    strTemp = lcase(trim(FusionArr(J, 7)))  
    strCheck = lcase(trim(CXArr(i, 3)))  

    If (Instr(strTemp, strCheck) > 0) OR (InStr(strCheck, strTemp) > 0) Then 
        '...  

    End If
        'end for j
    'end for i