Birleştirilmiş Hücre Ayırma

[steppe]

Merhaba Arkadaşlar,
A ve B sütununda birleştirilmiş yüzlerce veri var.

Sub hucre_ayir()
Cells.MergeCells = False
End Sub

Koduyla birleştirilmiş hücreleri ayırdığımız zaman A sütununda ayırma yapıyor.
Örnek :
A1 -Ankara
A4-İstanbul
A6-İzmir yazıyor.

Ayırma sonrası
B1 -Ankara
B4-İstanbul
B6-İzmir yazdırabilir miyiz?

Yardımlarınız için şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Birleştirilmiş hücreler sadece A ve B sütununda mı.

. . .

 

[veyselemre]

Sub test()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        If Cells(i, 1).MergeCells Then
            Cells(i, 1).MergeCells = False
            Cells(i, 2) = Cells(i, 1)
            Cells(i, 1) = ""
        End If
    Next i
End Sub

 

[steppe]

Yardımlarınız için çok teşekkür ederim.