satırları birleştirerek 2'li satır haline getirmek ...

[pNouma]

Kıymetli Hocalarım selamlar, saygılar.

Ekli dosyada bir yılın 365 günü listelenmiş durumda;
Bu tabloda yer alan her bir günü ekli dosyada; 1. gün de olduğu gibi 2. satır haline getirmek istiyorum.

https://dosya.co/rgsgfpedukca/Kitap3.xlsx.html


Bu konuda yardımcı olabilirseniz sevinirim.

desteğiniz için şimdiden teşekkürler.
iyi Çalışmalar dilerim.

 

[tamer42]

Kıymetli Hocalarım selamlar, saygılar.

Ekli dosyada bir yılın 365 günü listelenmiş durumda;
Bu tabloda yer alan her bir günü ekli dosyada; 1. gün de olduğu gibi 2. satır haline getirmek istiyorum.

https://dosya.co/rgsgfpedukca/Kitap3.xlsx.html


Bu konuda yardımcı olabilirseniz sevinirim.

desteğiniz için şimdiden teşekkürler.
iyi Çalışmalar dilerim.

bu şekilde dener misiniz

Sub AddBlankRowsAndMerge()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    Set ws = ThisWorkbook.Sheets("Sayfa1")

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    

    For i = lastRow To 2 Step -1
        ' Insert blank row
        ws.Rows(i + 1).Insert Shift:=xlDown
        
        ' Merge cell 
        For Each cell In ws.Rows(i).Cells
            If cell.Value <> "" Then
                ws.Range(cell, cell.Offset(1, 0)).Merge
            End If
        Next cell
    Next i
End Sub