Remplir les entrées manquantes d'une feuille à l'autre

J'ai deux feuilles dans Excel. Pour cet exemple, feuille 1 et feuille 2.

Feuille 1 : 100 enregistrements avec prénom , Emplacement , Le sexe

Feuille 2 : 100 enregistrements avec prénom , Emplacement , Âge

Les sources des données ne sont pas synchronisées. Par conséquent, j'ai dans la feuille 1 des données qui n'existent pas dans la feuille 2, mais dans la feuille 2, des données qui n'existent pas dans la feuille 1 et dans des données les deux feuilles. Il se peut donc que certains noms de la feuille 1 ne figurent pas dans la feuille 2 et inversement.

Je recherche un moyen automatisé de regrouper les deux feuilles dans une troisième feuille et de renseigner le champ Nom & amp; Lieu et disponibilité, âge et sexe. Je sais que ce serait facile à faire dans MS Access, mais en raison de mon auditoire, je dois garder cela dans Excel et je suis un vrai malentent à VBA: S

Ce que j'ai fait : Sur la feuille 3, j'ai créé des formules pour extraire les données de la feuille 1 et dans la feuille 2, j'ai ajouté un champ ("X"), que la formule apposera sur le champ avec "1" si le champ n'est pas présent dans la feuille. 1 et indiquera "0" si le champ est présent dans la feuille 1. Dans mon esprit, je cherche un moyen qui indique: "Si le champ" X "dans la feuille 2 =" 1 ", extrait ces données. et l'ajouter à la feuille 3, mais je ne sais pas comment faire :(

cela nécessiterait un script VBA pas si difficile.

Voici le pseudo code

Create Array that contains All Names from Sheet B
For i = 0 to CellFromACount
 IF A.Name is not in ArrayB
   SheetB.AddLine (Item)
Next

Pour écrire le code, suivez quelques tutoriels en cherchant Excel vba tutorial sur un moteur de recherche. Exemple ici: Tutoriel VBA

Les choses dont vous avez besoin faire sont:

1. Tableau de cordes
2. Obtenir de la valeur de la cellule
3. Pour boucle
4. Si condition
5. Ajouter une nouvelle ligne en bas de la feuille

Cela devrait marcher. Mettre dans un module :

Public Sub sheetmerge()
Dim wkb As Workbook
Dim wks, wks1, wks2 As Worksheet
Set wkb = ThisWorkbook
Set wks = wkb.Sheets(1)
Set wks1 = wkb.Sheets(2)
Set wks2 = wkb.Sheets(3)
emptyRow1 = False
i = 1
k = 1
' Loops while there is data on sheet 1 column 1
While emptyRow1 = False
    found = False
    ' extracts the name from column 1, row i
    name1 = wks.Cells(i, 1)
    If name1 <> "" Then
        'As it is not empty then loop through Sheet2 names
        emptyRow2 = False
        j = 1
        While emptyRow2 = False
            name2 = wks1.Cells(j, 1)
            If name2 <> "" Then
                'As name2 is not empty then compare name and name 2
                If name1 = name2 Then
                    'If name1 is the same as name2 then put the data on Sheet3
                    wks2.Cells(k, 1) = name1
                    wks2.Cells(k, 2) = wks.Cells(i, 2)
                    wks2.Cells(k, 3) = wks.Cells(i, 3)
                    wks2.Cells(k, 4) = wks1.Cells(j, 3)
                    found = True
                    k = k + 1
                    'stop looping sheet2 by setting emptyrow2 to True
                    emptyRow2 = True
                End If
            Else
                'name2 is empty, then stop looping sheet2
                emptyRow2 = True
            End If
            j = j + 1
        Wend
    Else
        'name1 is empty then stop looping Sheet1
        emptyRow1 = True
    End If
    'if after looping there was no coincidence of names then put the data from Sheet1
    If found = False Then
        If name1 <> "" Then
            wks2.Cells(k, 1) = name1
            wks2.Cells(k, 2) = wks.Cells(i, 2)
            wks2.Cells(k, 3) = wks.Cells(i, 3)
            k = k + 1
        End If
    End If
    i = i + 1
Wend
'This area loops through Sheet2 seeking for coincidences
emptyRow2 = False
j = 1
While emptyRow2 = False
    found = False
    name2 = wks1.Cells(j, 1)
    If name2 <> "" Then
        emptyRow1 = False
        i = 1
        While emptyRow1 = False
            name1 = wks.Cells(i, 1)
            If name1 <> "" Then
                If name2 = name1 Then
                    found = True
                    emptyRow1 = True
                End If
            Else
                emptyRow1 = True
            End If
            i = i + 1
        Wend
    Else
        emptyRow2 = True
    End If
    ' If there wasn't a coincidence it means this name is in sheet2 but is not on Sheet1 so, put it in Sheet3.
    If found = False Then
        wks2.Cells(k, 1) = name2
        wks2.Cells(k, 2) = wks1.Cells(j, 2)
        wks2.Cells(k, 4) = wks1.Cells(j, 3)
        k = k + 1
    End If
    j = j + 1
Wend
End Sub

Il boucle à travers les lignes sur feuille1 les mettre feuille3 mettre une quatrième colonne s'il y a une coïncidence avec feuille2 .

Après ça passe en boucle feuille2 mettre sur feuille3 lignes non trouvées sur feuille1 .