Benzer hücreleri birleştirme

[dogan11]

Herkese merhaba,

Bir değere ait verilerin tamamını tek bir hücrede nasıl birleştirebilirim? Çok araştırdım ancak bulamayınca yardımınıza başvurmak istedim...

Ekteki dosyada B ve C sütunları elimde iken E sütununu oluşturduktan sonra F sütununu formülle oluşturmak istiyorum.

Yardımınız için teşekkürler.

 

[Ömer]

Merhaba,

Bu işlemi yerleşik fonksiyonlarla yapmak için oldukça fazla yardımcı sütun kullanmak gerekir. Buda pratik bir yol değildir. Makro kullanmak en doğru yoldur.

Module kopyalayıp çalıştırın.

Sub Birlestir()
 
    Dim d As Object, i As Long, s, a1, a2, deg
 
    Set d = CreateObject("Scripting.Dictionary")
 
    Application.ScreenUpdating = False
    Range("E2:F65000").ClearContents
 
    For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
       deg = Cells(i, "B")
       If Not d.exists(deg) Then
           s = Cells(i, "C")
           d.Add deg, s
       Else
           s = d.Item(deg)
           s = s & ";" & Cells(i, "C")
           d.Item(deg) = s
       End If
    Next i
 
    a1 = d.keys: a2 = d.items
    For i = 0 To d.Count - 1
        Cells(i + 2, "E") = a1(i)
        Cells(i + 2, "F") = a2(i)
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[dogan11]

Çok teşekkür ederim, can kurtarıcı hareket