otomatik hücre birleştirme

[nes432]

A:J aralığında 361 satırlık verim var (176 veri birer satır arayla). A4:A5,B4:B5,....J4:J5 ardından A6:A7.....J6:J7 şeklinde devam edecek şekilde, A:J aralığını 4. satırdan başlayarak bir alt satırla otomatik birleştirmek istiyorum. Yardımcı olabilir misiniz. Tşk ederim.

 

[Ömer]

Merhaba,

K4 hücresine yazıp yana ve alt hücrelere kopyalayın.

=KAYDIR(A$4;SATIRSAY(K$4:K4)*2-2;0)&KAYDIR(A$5;SATIRSAY(K$4:K4)*2-2;0)

.

 

[nes432]

tşk ederim yanıtınız için, verilerimin arasında bir satır boşluk var her boşlugu üstteki verinin olduğu hücre ile birleştirmek istiyorum. bunu sağlayacak formül değilde makro lazım bana. cünkü tutup cektiğim zaman formülü alttıki dolu hücrem boşalacak

 

[Ömer]

Formülü denediniz mi?
Verdiğim formül sizin istediğiniz atlatma işini yapıyor.

Makro:

Sub Birlestir()
    
    Dim i As Long, j As Byte, sat As Long
    
    Application.ScreenUpdating = False
    Range("K4:T" & Rows.Count).ClearContents
    
    sat = 4
    For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row Step 2
        For j = 1 To 10
            Cells(sat, j + 10) = Cells(i, j) & Cells(i + 1, j)
        Next j
        sat = sat + 1
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.

 

[nes432]

Formülü denemiştim olmadı su an çözüldü tşk ederim.