Correspondance des valeurs entre les feuilles de calcul Excel et copie de la ligne dans une autre feuille de calcul

Question

J'ai 3 feuilles de travail dans mon fichier Excel. Manquant (25 000 lignes), Valide (18 000 lignes) et Correspondant (vide).

Je dois comparer les valeurs dans la colonne D de Missing and Valid et copier toutes les lignes de toutes les correspondances à la feuille Matched.

Si je peux en quelque sorte faire une recherche générique avec ce qui serait bien aussi, par exemple un moyen pour ABBOTT LABORATORIES pour correspondre ABBOTT LAB. Si ce n'est pas possible, alors s'il y a un moyen de mettre en évidence les lignes qui ont été trouvées afin que je puisse trouver manuellement les correspondances génériques serait très apprécié.

C'est ce que j'ai essayé, je l'ai trouvé via Google, mais je ne comprends pas complètement le code. Il a couru pendant quelques minutes sans erreurs, mais aucune donnée n'a été tiré:

Sub CopyRows() 
Dim cell As Range 
Dim found As Range 
Dim dcol 
Dim bcol 
Dim totalrows1 As Long 
Dim totalrows2 As Long 

totalrows1 = Sheets("Valid").UsedRange.Rows.Count 
bcol = "$D$2:$D$" & totalrows1 
totalrows2 = Sheets("Missing").UsedRange.Rows.Count 
dcol = "$D$2:$D$" & totalrows2 
For Each cell In Sheets("Valid").Range(bcol) 
    If Not Sheets("Missing").Range(dcol).Find(What:=cell.Value, LookAt:=xlWhole) Is Nothing Then 
     Set found = Sheets("Missing").Range(dcol).Find(What:=cell.Value, LookAt:=xlWhole) 
     If found.Offset(0, -3).Value = cell.Offset(0, 1).Value And found.Offset(0, -2).Value = cell.Offset(0, -1).Value Then 
      cell.Offset(0, 2).Value = found.Offset(0, -1).Value 
     End If 
    End If 
Next cell 
End Sub 

Answer 1

ne parviendront pas correspondances approximatives mais autrement: Fusionner disparus et valide dans apparié, trier sur ColumnD puis appliquez un moment fort avec mise en forme conditionnelle pour identifier valeurs 'D' correspondantes. Filtrer et supprimer ceux qui ne sont pas en surbrillance. L'examen de SU486330 peut aider.