Aynı Değerleri Hücre birleştirme

[doukan84]

Merhabalar Arkadaşlar;


Benim bir sorum olacak... C1'den C10.000'e kadar hücrelerime çeşitli veritabanlarından veriler geliyor... Bunlardan alt alta aynı olanlar oluyor kimi zaman 3 hücre alt alta aynı veri kimi zamanda 4 hücre alt alta birebir aynı konular oluyor.. Bilmiyorum ama mümkünmüdür excelde böyle bişey... Aynı veriye sahip hücreler otomatik olarak hücre birleştirse.. mümkünmüdür acaba ?

 

[fireman64]

Aşağıdaki kod işinizi görecektir.

Sub MÜKERRER_KAYITLARI_SİL()
    For X = [c65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("c1:c" & X), Cells(X, "c")) > 1 Then Rows(X).Delete
    Next
    MsgBox "MÜKERRER KAYITLAR SİLİNMİŞTİR.", vbInformation
End Sub

 

[doukan84]

Aşağıdaki kod işinizi görecektir.

Sub MÜKERRER_KAYITLARI_SİL()
    For X = [c65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("c1:c" & X), Cells(X, "c")) > 1 Then Rows(X).Delete
    Next
    MsgBox "MÜKERRER KAYITLAR SİLİNMİŞTİR.", vbInformation
End Sub

Güzel bir çalışma ama hocam.. Ben aynı sıradakileri silsin istemiyorum bu tekrar olanları siliyor.. ben alt alta denk gelenleri birleştirsin istiyorum

mesela C132-C133 bunlarda ahmet yazıyor, C132-C133 hücrebirleştir olsun..

 

[Ziynettin]

Merhaba, aşağıdaki kod olurmu?

Sub tek()
On Error Resume Next
For j = Range("C" & Rows.Count).End(3).Row To 1 Step -1
    If Cells(j, 3) = Cells(j + 1, 3) Then Cells(j + 1, 3).ClearContents
Next j

    s = 1
For i = 2 To Range("C" & Rows.Count).End(3).Row
    If Cells(i, 3).Value <> "" Then Range("C" & s & ":C" & i - 1).Merge: s = i
Next i
End Sub

 

[doukan84]

Çok sağol.. aradığım buydu teşekkür ederim