修改简单的VBA脚本以考虑不同的匹配？

Question

所以我使用这个功能：

Sub Test()
    Dim NA As Long, NC As Long, v As String, I As Long, J As Long
    Dim v2 As String
    NA = Cells(Rows.Count, "A").End(xlUp).Row
    NC = Cells(Rows.Count, "C").End(xlUp).Row
    For I = 2 To NA
        v = LCase(Cells(I, "A").Value)
        v2 = ""
        For J = 2 To NC
            If InStr(LCase(Cells(J, "C").Value), v) > 0 Then ' What to do here?
                v2 = v2 & ";" & Cells(J, "C").Value
            End If
        Next J
        Cells(I, "A").Offset(0, 1).Value = Mid(v2,2)
    Next I
End Sub

将一列图像名称与其他列中的项目相匹配。除了一种情况外，这种方法很有效：

  

如果商品编号在商品名称中包含＆＃34; -SET2＆＃34; 字符串 - 那么 MCR7009A-SET2 而不是 MCR7009A < / strong> - 文件名中没有SET2的图像最终不会匹配。这会导致许多图像被忽略。

我如何解释＆＃34; -SET2＆＃34; 在项目名称中的可能性？