Excel'de bir aralığı hızlı ve kolayca devirmek (transpose) veya verileri yığmak (stack) nasıl yapılır?
Örneğin, veriler gruplar hâlinde görüntüleniyor ve şimdi her sütundaki verileri devirip yığmak istiyorum—aşağıdaki ekran görüntüsünde gösterildiği gibi. Bu makalede, Excel’de bu görevi gerçekleştirmenize yardımcı olacak yöntemleri tanıtacağım.
VBA ile verileri devirme ve yığma
Kutools' Tabloyu Çevir Boyut özelliğiyle verileri devirme ve yığma 
VBA ile verileri devirme ve yığma
Verileri devirmek ve yığmak için VBA kodu uygulayabilirsiniz.
1. Sütun başlıklarını hariç tutarak veri aralığını seçin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.
VBA: Verileri devirme ve yığma
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. F5 tuşuna basın; ardından veriler devrildi ve yığıldı. Ekran görüntüsüne bakın:
Not: VBA kodundaki A harfi, devrilen verilerin Geçerli Çalışma Sayfası’nın A sütununa yerleştirileceğini ve bu sütundaki orijinal verilerin değiştirileceğini gösterir.
Kutools' Tabloyu Çevir Boyut özelliğiyle verileri devirme ve yığma
VBA kodu kullanmadan aralığı hızlı ve kolay bir şekilde devirmek ve verileri yığmak istiyorsanız, Kutools for Excel’in Tabloyu Çevir Boyut yardımcısını kullanabilirsiniz.
1. Kullanmak istediğiniz verileri seçin, ardından Kutools > Aralık > Tablo Boyutunu Dönüştür seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. İletişim kutusunda İki Boyutlu Tabloyu Tek Boyutlu Tabloya Dönüştür seçeneğini işaretleyin ve devrik verilerin yerleştirileceği hücreyi Sonuç aralığı (tek hücre) metin kutusundan belirleyin. Ekran görüntüsüne göz atın:
3. Tamam düğmesine tıklayın. Artık aralık, sütunlarda devrilmiş ve yığılmıştır.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
Demo: Kutools' Tabloyu Çevir Boyut özelliğiyle aralığı devirme ve verileri yığma
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar