Birleştirilmiş hücrelerin makro ile toplanması

[Necdet]

Merhaba,

Evet haklısınız, aceleye geldiğinden tam kontrol edemeden eklemiştim kodları.

Aşağıdaki şekilde deneyiniz.

Sub UnMerge()
Dim i       As Long
Dim Deger   As String
Dim s1      As Worksheet
Dim s2      As Worksheet
Set s1 = Sheets("Sayfa1 BU SAYFA")
Set s2 = Sheets("Sayfa2 BÖYLE OLMALI")
s1.Range("A:A").Copy s2.Range("A1")
s2.Select
For i = 2 To [A65536].End(3).Row + 1
    If Range("A" & i).MergeArea.Count > 1 Then
        Cells(i, "A").UnMerge
        Deger = Cells(i, "A")
    Else
       [B]If Cells(i, "A") = "" Then Cells(i, "A") = Deger[/B]
    End If
Next i
End Sub

 

[izcik]

Şahane olmuş elinize sağlık Necdet Yeşertener uzmanım

 

[Necdet]

Güle güle kullanınız.