yinelenen satırlardaki farklı bilgileri birleştirme

[fatisali52]

Merhaba. Bir excel tablosu var. A sütunu müşteri adı yazıyor, B sütunu ise telefon numarası yazıyor. Alt alta yaklaşık 100bine yakın satır var. Bu satırlarda örneğin bir müşteri adı 3 veya 5 kez A sütununda tekrarlanıyor, bu tekrar eden şirket adıyla ilgili B sütununda ise farklı telefon noları var. Yani bir şirketin bi kaç telefonu olduğu için o şirket yeni ve farklı bir şirket gibi alt satırlarda tekrarlanmış. Ben istiyorum ki o tekrar esen şirkwtlwrin ikinci üçüncü dördüncü...... Vs telefon numaraları C ve D sütununa tek bir müşteri olarak ayıklansın ve fazla datalar ortadan kalksın. Nasıl bir koda ihtiyacım var acaba. Saygılar

 

[Asri]

Aşağıdaki verileri,

Firma1 1
Firma1 2
Firma1 3
Firma2 1
Firma2 2
Firma2 3
Firma2 4
Firma2 5
Firma3 1

Aşağıdaki şekilde düzenler
Firma1 1 2 3
Firma2 1 2 3 4 5
Firma3 1

Sub menu()
  Call kontrol
  Call bos_satir_sil
End Sub

Sub kontrol()
  Application.ScreenUpdating = False
  Sheets("Sayfa1").Select
  sonsatir = Cells(Rows.Count, "A").End(3).Row
  
  'Columns("C:Z").Select
  'Selection.ClearContents
  'Range("B1").Select
  
  eskifirma = ""
  say = 0
  For i = sonsatir To 1 Step -1
    firma = Cells(i, 1).Value
    tel = Cells(i, 2).Value
    
    If firma = eskifirma Then
       say = say + 1
       For j = 1 To say
         Cells(i, 2 + j).Value = Cells(i + 1, j + 1).Value
       Next j
       Rows(i + 1).Clear
    Else
       say = 0
    End If

    eskifirma = firma
  Next i
  
  Application.ScreenUpdating = False
End Sub

Sub bos_satir_sil()
 sonsatir = Cells(Rows.Count, "A").End(3).Row
 For i = sonsatir To 1 Step -1
      If Cells(i, 1).Value = "" Then Rows(i).Delete
 Next i

End Sub

 

[fatisali52]

Merhaba. A sütununa alt alta yinelenen firma isimlerini yazdım b sütununa ise telefon numarasını yazdım. Bu kodu direkt vb kod sayfasına ekleyip kaydedeceğim sanırım. Doğru mu acaba biraz acemiyim kusura bakmayın. Saygılar

 

[Asri]

Merhaba. A sütununa alt alta yinelenen firma isimlerini yazdım b sütununa ise telefon numarasını yazdım. Bu kodu direkt vb kod sayfasına ekleyip kaydedeceğim sanırım. Doğru mu acaba biraz acemiyim kusura bakmayın. Saygılar

Dosyayı xlsm olarak kaydetmek gerekiyor.

Vb koduna menu olan bölümü çalıştıracak siniz.