worksheet merge /append 911

[Hammertime]

Good afternoon!
Long time listener, first time caller...or something like that.
I have exported 2 CSV files from an oddball custom database, and cleaned up the data. There is a uniqueID (part#) between the 2 and aside from that all is different. What i'd like to do is find an easy way to create a 3rd worksheet, that will bring in the data from the first (26,000 lines by 18 columns) and append the data from the second (24,000 lines by 10 columns).
The ONLY common columns will be the PART#.
As you can see by the number of lines, some items are not listed in the second (making a simple copy and paste unusable).
Also, if there IS an item in the second that is NOT listed in the first, then a new line will need to created, with ONLY the applicable info populated into it.
i have attached 3 images to demo the bulk of what i am thinking...

and the finished product:

any help or suggestions would be HUGELY appreciated.
thanks!

Damien

 

[dave3009]

Hi Damien

Could you not use VLOOKUP to achieve your results?

 

[Hammertime]

I may have neglected to mention my level of Newb-ness. i am looking into that as we speak!!

Thanks Dave.

D'

 

[charlee63]

Vlookup will only work if there is no new Part # in file 2.

 

[charlee63]

I would do it as a macro something like this:
Sub MergeFile()
Dim Part(10)

For x = 1 To 24000
Windows("File2.xls").Activate
For y = 1 To 10
Part = Cells(x, y).Value
Next y
w = 2
z = 19
Found = 0
Windows("File1.xls").Activate
Do Until IsEmpty(Cells(w, 1).Value)
If Part(1) = Cells(w, 1).Value Then
For y = 2 To 10
Cells(w, z).Value = Part
z = z + 1
Found = 1
Exit Do
Next y
Else
w = w + 1
End If
Loop
If Found = 0 Then
NotBlank = 0
For Each cell In Selection
If cell.Value <> "" Then NotBlank = NotBlank + 1
Next cell
newRow = NotBlank + 1
z = 19
Cells(newRow, 1).Value = Part(1)
For y = 2 To 10
Cells(newRow, z).Value = Part
z = z + 1
Next y
End If
Next x
End Sub