Hücreleri alt alta birleştirme

[kadir78]

İyi günler. Aşağıdaki kodlar ile hücre birleştirme işlemi yapıyorum fakat hücreler birleşince düz bir metin gibi uzun oluyor. Hücreler birleşince alt + enter yapmış gibi aynı hücrede alt alta nasıl birleştirebilirim. Yardımcı olur musunuz.

Sub Makro1()

sat = 1
For Each alan In Range("a1:d1000")
If alan <> "" Then
Cells(sat, "e") = Cells(sat, "a") & Cells(sat, "b") & Cells(sat, "c") & Cells(sat, "d")
sat = sat + 1
End If
Next

End Sub

 

[Asri]

Bu şekilde deneyiniz.

Sub Makro1()

sat = 1
For Each alan In Range("a1:d1000")
If alan <> "" Then
Cells(sat, "e") = Cells(sat, "a") &  Chr(10) & Cells(sat, "b")  &  Chr(10)  & Cells(sat, "c")  &  Chr(10) & Cells(sat,  "d")
sat = sat + 1
End If
Next

End Sub

 

[kadir78]

Çok teşekkür ederim. Sağolun.