hücredeki rakama göre merge işlemi yapma

[xp45s]

Merhaba;

Detaylı açıklama yaptıgım dosya ektedir.Yardımlarınızı rica ediyorum.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırın.

Option Explicit
 
Sub Birlestir()
Dim i, sat As Long, deg As String
sat = 2
deg = Range("A2")
Application.DisplayAlerts = False
For i = 2 To [A65536].End(3).Row + 1
    If Cells(i, "A") <> deg Then
        Range("A" & sat & ":A" & i - 1).Merge
        sat = i
        deg = Cells(i, "A")
    End If
Next i
[A:A].VerticalAlignment = xlCenter
Application.DisplayAlerts = True
End Sub

.

 

[xp45s]

hocam eline koluna sağlık beni büyük bir iş yükünden kurtardın..İyiki varsınızz

 

[Qutayf]

Ben de tebrik ederim gerçekten. Benim de işime yarayacak.