Birden fazla satırdaki bilgileri tek satırda birleştirme

[Düşünen Emu]

Merhabalar,
Elimde büyük bir excel dosyası var ve değişik dillerde çeviriler içeriyor.
Her satır bir veriye ve her sütun bir dile denk geliyor.
Satırların bazılarında veriler aynı olabiliyor ve sorunum burda başlıyor.
Aynı verileri içeren satırları birleştirmek istiyorum.
Diyelim ki 1. satır, 10 dilden 5 tanesin çeviri içerirken, bir altındaki satır ise aynı veri için 7 dilde çeviri içeriyor ve birkaç tanesi bir üst satırla aynı.
İşte bu iki satırı birleştirirken bir satırda olmayan verileri olan satırdan alarak eksik yerleri tamamlamak istiyorum.

Aşağıya bir görüntü ve dosyaya link ekledim, umarım yardımcı olursnuz.
Teşekkürler şimdiden...
https://ufile.io/twoel
http://ge.tt/1sAm2yn2

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub diller()
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    Cells(i, "AV") = WorksheetFunction.Proper(Cells(i, "A"))
Next
For i = 2 To son
    If WorksheetFunction.CountIf(Range("AV" & i + 1 & ":AV" & son), Cells(i, "A")) > 0 Then
        For j = i + 1 To son
            If Cells(j, "AV") = Cells(i, "AV") Then
                sonsüt = Cells(j, "AV").End(xlToLeft).Column
                For k = 2 To sonsüt
                    If Len(Cells(i, k)) < Len(Cells(j, k)) Then Cells(i, k) = Cells(j, k)
                Next
                Rows(j).Delete
                
                son = son - 1
            End If
        Next
    End If
Next
Columns("AV").Delete
End Sub

 

[Düşünen Emu]

Yardiminiz icin cok tesekkurler...
VB kodunu art arda birkac defa calistirinca satirlarin yavas yavas azaldigini ve sonunda sadece tek bir satir kaldigini gördum.
Isimi fazlasiyla gördu. Ellerinize saglik....