Isi entri yang hilang dari satu lembar ke yang lain

Saya memiliki dua Lembar di Excel. Untuk contoh ini, Sheet 1 dan Sheet 2.

Lembar 1 : 100 catatan dengan Nama , Lokasi , Jenis kelamin

Lembar 2 : 100 catatan dengan Nama , Lokasi , Usia

Sumber data tidak disinkronkan, oleh karena itu, saya punya data yang ada di Sheet 1 yang tidak ada di Sheet 2, saya juga punya data di Sheet 2 yang tidak ada di Sheet 1 dan saya punya data yang ada di kedua lembar. Jadi, mungkin ada nama di Sheet 1 yang tidak ada di Sheet 2 dan sebaliknya.

Saya mencari cara otomatis untuk menggabungkan kedua lembar menjadi lembar ketiga dan mengisi Nama & amp; Lokasi dan di mana tersedia Umur dan Jenis Kelamin. Saya tahu ini akan mudah dilakukan di MS Access, tetapi karena audiens saya, saya harus menyimpan ini di Excel dan saya noob lengkap untuk VBA: S

Apa yang telah aku lakukan : Pada lembar 3, saya telah membuat rumus untuk mengekstrak data dari Lembar 1 dan di Lembar 2 saya telah menambahkan bidang ("X"), yang rumusnya akan memberi label bidang dengan "1" jika bidang itu tidak ada di Lembar 1 dan akan dilabeli dengan "0" jika bidang ada di Lembar 1. Dalam pikiran saya, saya sedang mencari cara yang akan menyatakan: "Jika bidang" X "di Lembar 2 =" 1 ", kemudian ekstrak data itu dan menambahkannya ke Lembar 3, tetapi tidak yakin bagaimana melakukannya :(

ini membutuhkan skrip VBA yang tidak terlalu sulit.

Ini adalah kode semu

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

Untuk menulis kode, ikuti beberapa tutorial dengan mencari Excel vba tutorial di mesin pencari. Contoh di sini: Tutorial VBA

Hal-hal yang Anda butuhkan melakukan adalah:

1. Array string
2. Dapatkan Nilai Dari Sel
3. Untuk Loop
4. Jika kondisi
5. Tambahkan baris baru di bagian bawah lembar

Ini seharusnya bekerja. Dimasukkan ke dalam a modul :

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

Itu loop melalui baris sheet1 memakainya sheet3 menempatkan kolom keempat jika ada kebetulan dengan sheet2 .

Setelah itu loop melewati sheet2 memakai sheet3 baris tidak ditemukan pada sheet1 .