Hücre Birleştirme

[drummers]

Ekli dosyamda il ilçe mahalle listesi bulunmakta benim istediğim

B,C,D sütunlarındaki aynı isimli hücreleri birleştirmesi

Örnek: A1:A150 arası "Adana" yazılı. A1:A150 arasını birleştirip tek hücrede "Adana" yazmasını makro ile nasıl sağlarım.
Teşekkürler

 

[Korhan Ayhan]

Bir kereye mahsus aşağıdaki kodu çalıştırın.

Sub DUZENLE()
    Dim X As Long, ilk As Long, son As Long
    
    Application.DisplayAlerts = False
    
    For X = 2 To Cells(Rows.Count, 2).End(3).Row
        ilk = X
        son = WorksheetFunction.CountIf(Range("B:B"), Cells(X, 2))
        Range("B" & ilk & ":B" & X + son - 1).Merge
        X = X + son - 1
    Next

    For X = 2 To Cells(Rows.Count, 3).End(3).Row
        ilk = X
        son = WorksheetFunction.CountIf(Range("C:C"), Cells(X, 3))
        Range("C" & ilk & ":C" & X + son - 1).Merge
        X = X + son - 1
    Next

    For X = 2 To Cells(Rows.Count, 4).End(3).Row
        ilk = X
        son = WorksheetFunction.CountIf(Range("D:D"), Cells(X, 4))
        Range("D" & ilk & ":D" & X + son - 1).Merge
        X = X + son - 1
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[drummers]

Teşekkürler