Excel - tablodaki verileri tek sayfaya toplama?

Merhaba,

örnekteki gibi 2 sasyfadan oluşan bir çalışma kitabımız var.

big data isimli sayfada yüzlerce sütun ve satırdan oluşan bir tablo var.

yapmaya çalıştığımız şey : big data isimli sayfadaki verileri, aralarında boş satır olmaksızın alt alta olacak şekilde liste sayfasında sıralamak.

özel git - boşluklar - hücre sil ile olmayacak bir yapı mevcut.

macro ile yapılabilecek bir şey sanırım.

Sub Düzenle()

Application.ScreenUpdating = False
Range("A2:E10000") = ""
Set b = Sheets("big_data")
son = 100
For i = 2 To son
For a = 1 To 10
r = Cells(Rows.Count, 1).End(3).Row + 1
If b.Cells(i, a * 5 - 4) <> "" Then
Cells(r, 1) = b.Cells(i, a * 5 - 4).Value
Cells(r, 2) = b.Cells(i, a * 5 - 3).Value
Cells(r, 3) = b.Cells(i, a * 5 - 2).Value
Cells(r, 4) = b.Cells(i, a * 5 - 1).Value
End If
Next
Next
End Sub

Liste sayfasında uygulayınız.

çok teşekkürler