Excel'de aralığı kolayca ve hızlı bir şekilde nasıl transpoze edip verileri yığabilirsiniz?
Örneğin, gruplar halinde gösterilen bazı veriler var ve şimdi aralığı transpoze etmek ve her sütundaki verileri yığmak istiyorum, aşağıdaki ekran görüntüsünde gösterildiği gibi. Bu makalede, Excel'de bu görevle ilgili yöntemleri tanıtacağım.
VBA ile verileri transpoze etme ve yığma
Kutools'un Tablo Boyutunu Dönüştür özelliği ile verileri transpoze etme ve yığma
VBA ile verileri transpoze etme ve yığma
Verileri transpoze etmek ve yığmak için bir VBA kodu uygulayabilirsiniz.
1. Sütun başlıklarını hariç tutarak verileri seçin ve Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül'e yapıştırın.
VBA: Verileri Transpoze Etme 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. Tuşa basın F5 tuşuna basın, ardından veriler transpoze edilmiş ve yığılmış olacaktır. Ekran görüntüsüne bakın:
Not: VBA kodunda, A, transpoze edilen verileri aktif çalışma sayfasının A sütununa yerleştirmek ve A sütunundaki orijinal verileri değiştirmek anlamına gelir.
Kutools'un Tablo Boyutunu Dönüştür özelliği ile verileri transpoze etme ve yığma
Verileri hızlı ve kolay bir şekilde transpoze etmek ve yığmak isterseniz ve VBA kodu kullanmak istemiyorsanız, Kutools for Excel'in Tablo Boyutunu Dönüştür özelliğini uygulayabilirsiniz.
1. Kullandığınız verileri seçin, tıklayın Kutools > Aralık > Tablo Boyutunu Dönüştür. Ekran görüntüsüne bakın:
2. İletişim kutusunda işaretleyin İki Boyutlu Tabloyu Tek Boyutlu Tabloya Dönüştür seçeneğini işaretleyin ve transpoze edilen verileri yerleştirmek istediğiniz hücreyi seçin Sonuç Aralığı (tek hücre) metin kutusunda. Ekran görüntüsüne bakın:
3. Tıklayın Tamam. Şimdi aralık transpoze edilmiş ve sütunlarda yığılmıştır.
Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Sürekli ücretsiz AI özelliklerinden yararlanın! Hemen Edinin
Demo: Kutools'un Tablo Boyutunu Dönüştür özelliği ile Aralık Transpoze Etme ve Veri Yığma
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!