如何删除不包含某些不精确值的单元格行

Question

在工作表1中，我有一列具有各种值。

在工作表2中，我有一列的值应该在工作表1中。

我想删除工作表1中没有的值，而我知道这些值不完全匹配，但彼此有点相似。

示例：如果我在工作表2中有“波士顿咨询小组”，在工作表1中有“波士顿咨询”，那么我将保留它。如果根本不匹配，我想删除它。

我尝试了函数Instr以及过滤和vlookup。

Dim result As Boolean: result = False

Dim cellule As Range

For Each cellule In prmListeRef.Cells

    If Trim(cellule.Value) = "" Then
        Exit For 'Sort si on a trouvé une cellule vide
    End If

    If Trim(UCase(prmCelluleDonnees.Value)) Like "*" & Trim(UCase(cellule.Value)) & "*" Then
        result = True 'On a trouvé quelque chose qui ressemble à ce qu'on cherche.
        Exit For
    End If

Next

ASupprimer = result