Sütunları birer satır atlayarak diğer sütuna taşıma

[admadm_61]

Merhabalar;
Ekteki dosyada olduğu gibi A ve B sütunundaki satırları birer satır atlayarak C sütununda alt alta yazdırmak istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Yaz()

    Dim son As Long, i As Long, s As Long
    
    son = [A:B].Find("*", , , , xlByRows, xlPrevious).Row
    
    Application.ScreenUpdating = False
    [C:C].ClearContents
    
    s = 1
    For i = 1 To son
        Cells(s, "C") = Cells(i, "A")
        Cells(s + 1, "C") = Cells(i, "B")
        s = s + 2
    Next i
    
End Sub

 

[YUSUF44]

Alternatif olarak formülle isterseniz aşağıdaki formülü deneyiniz:

=DOLAYLI(ADRES(AŞAĞIYUVARLA((SATIR()-1)/2+1;0);EĞER(MOD(SATIR();2)=0;2;1);1;1))