Şarta bağlı hücre birleştir

[aliakgul]

İyi akşamlar arkadaşlar,
B sütunundaki aynı verilerin yer aldığı hücreleri belirleyip H sütunundaki karşılığı olan hücreleri birleştirmesini istiyorum.Veriler değişken olduğu için takıldım kaldım...
Örneğin;
B4:B5 aralığında aynı veriler var, H4:H5 aralığındaki hücreleri birleştirecek.
Şimdiden teşekkür eder iyi çalışmalar dilerim.

 

[Orion1]

Dosyanız ektedir.

Sub hucrebirlestir59()
Dim i As Long, sat As Long, say As Long
Range("H:H").UnMerge
sat = Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To sat
    say = WorksheetFunction.CountIf(Range("B" & i & ":B" & sat), Cells(i, "B").Value)
    If say > 1 Then
        Range("H" & i & ":H" & i + say - 1).Merge
    End If
Next i
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName
End Sub

 

[aliakgul]

Elinize sağlık, çok güzel oldu.Teşekkür ederim...

 

[Orion1]

Rica ederim.
iyi çalışmalar.