Sütunlardaki verileri alt alta sıralamak

[r-evolve]

Merhaba arkadaşlar,

Yüksek lisans tezimde kullanmakta olduğum verileri, "R programlama dilinde" kullanacağım. Elimde yan yana (tablo halinde) bulunmakta olan sıcaklık verilerini

alt alta sıralamak istiyorum.

Bunu yapmanın bir yolu var mıdır?

Elimde bu şekilde toplamda 9600 adet tablo olduğu için tek tek kopyala yapıştır yapmak gerçekten inanılmaz zaman alıyor.

Şimdiden teşekkür ederim,

İyi çalışmalar.

 

[Necdet]

Merhaba,

Örnek verilerin olduğu dosyanızı www.dosya.tc gibi paylaşım sitesine koyarsanız kodlarınızı yazacak kişi için veri hazırlamasından kurtarmış olursunuz.

 

[r-evolve]

Merhaba,

Örnek verilerin olduğu dosyanızı www.dosya.tc gibi paylaşım sitesine koyarsanız kodlarınızı yazacak kişi için veri hazırlamasından kurtarmış olursunuz.

Merhabalar hocam,

Verilerin içeriği çok da önemli değil. Sütunlardaki verileri alt alta koyacak tek bir formül yeterli olacaltır. Umarım anlatabilmişimdir. Teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Verilerin bulunduğu sayfanın adı Sayfa1, Aktarılan sayfanın adı da Sayfa2 olmalı.

Sub TekSatırdaTopla()

    Dim i       As Long, _
        j       As Integer, _
        k       As Integer, _
        m       As Integer, _
        c       As Range, _
        Sat     As Integer, _
        Kol     As Integer, _
        SKol    As Integer, _
        Sh1     As Worksheet, _
        Sh2     As Worksheet
        
    Set Sh1 = Sheets("Sayfa1")
    Set Sh2 = Sheets("Sayfa2")
    
    Sh2.Columns(1).Clear
    
    SKol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Set c = Sh1.Cells.Find("OCAK", LookIn:=xlValues)
    If Not c Is Nothing Then
        Sat = c.Row + 1
        Kol = c.Column
    Else
        MsgBox "OCAK BAŞLIĞINI BULAMADIM, ÇIKIYORUM....", vbCritical
        Exit Sub
    End If
    
    
    For j = Kol To SKol
        m = Sh2.Cells(Rows.Count, "A").End(3).Row + 1
        k = Sh1.Cells(Rows.Count, j).End(3).Row
        If Not k < Sat Then
            Range(Cells(Sat, j), Cells(k, j)).Copy Sh2.Cells(m, "A")
        End If
    Next j
    
    MsgBox "İşlem Bitmiştir...."
End Sub