Merge cells

[haso_excel]

Merhaba arkadaşlar,

Bir dosyam var. B1 hücresinden başlamak üzere her iki hücrede bir merge&cells var ve nerde bittiği belli değil. Her iki hücrenin altındaki yani C satırlarına takabül eden hücrelerde de sayılar var. Benim amacım bu merge leri açıp boş olanları go to special blanks kodu ile boş olan hücreleri doldurmak. Dosyam ekde

 

[leumruk]

Merhaba,

Sub dene()
Application.ScreenUpdating = False
For x = 2 To Cells(1, 256).End(1).Column Step 2
Range(Cells(1, x), Cells(1, x + 1)).MergeCells = False
Cells(1, x + 1) = Cells(1, x)
Next
Application.ScreenUpdating = True
End Sub

 

[haso_excel]

Çok teşekkür ederim.

 

[leumruk]

Çok teşekkür ederim.

Rica ederim.