Excel de Sutunları aynı olan dosyaları birleştirme

[murat.yildirim]

Arkadaşlar merhaba,,

Excel de elimde iki tane başlıkları aynı olan ham data var bunları tek bir excel de sutun sutun alt alta nasıl birleştirebilirim. Diyelim ki sutun isimleri aynı sırada gitmiyor nasıl bir pratik yol önerirsiniz (kopyala yapıştırsız formül ya da excel içindeki fonksiyon yardımıyla )

 

[Haluk]

Sütunları aynı yaparsanız SQL ile yapılır ....

.

 

[acar6783]

Sub eşleştir()
 
    Dim Con As Object, RS As Object, sorgu As String
 
    Set Con = CreateObject("Adodb.Connection")
    
    Set RS = CreateObject("Adodb.RecordSet")
    On Error Resume Next
    Set s1 = Sheets("Sheet1")
     son = s1.Cells(Rows.Count, "A").End(3).Row + 1
 
          Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
         For s = 1 To s1.Cells(1, Columns.Count).End(xlToLeft).Column
  aranan = s1.Cells(1, s).Value
        
        sorgu = "Select [" & aranan & "] from [Sheet2$]  "
        RS.Open sorgu, Con, 1, 3
         s1.Cells(son, s).CopyFromRecordset RS
       RS.Close
    Next s
        RS.Close: Con.Close
 
    Set Con = Nothing: Set RS = Nothing: sorgu = ""
MsgBox "Veriler Aktarıldı", vbInformation, "...Acar..."
  
End Sub

Merhabalar, Sütun başlıklarında "." kısaltmalarını kaldırırsanız eklediğim kodlar işinizi görecektir.