Excel'de aralık ve yığın verilerini kolayca ve hızlı bir şekilde nasıl aktarabilirim?
Örneğin, gruplar halinde görüntülenen bazı veriler var ve şimdi aşağıda gösterilen ekran görüntüsü gibi aralığı değiştirmek ve her sütundaki verileri yığmak istiyorum. Bu yazıda, bu görevle ilgili yöntemleri Excel'de tanıtacağım.
VBA ile verileri aktarın ve yığınlayın
Transpose Table Dimension ile verileri aktarın ve yığınlayın
VBA ile verileri aktarın ve yığınlayın
Verileri sıralamak ve yığınlamak için bir VBA kodu uygulayabilirsiniz.
1. Sütun başlıkları dışındaki verileri seçin ve Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modülve aşağıdaki kodu, modül.
VBA: Transpose ve Stack data
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. Basın F5 anahtar ve ardından veriler aktarılmış ve yığınlanmıştır. Ekran görüntüsüne bakın:
Not: VBA kodunda A, transpoze verilerini etkin sayfanın A sütununa yerleştirmeyi ve orijinal verileri A sütununda değiştirmeyi belirtir.
Transpose Table Dimension ile verileri aktarın ve yığınlayın
Aralık ve yığın verilerini VBA kodu olmadan hızlı ve kolay bir şekilde değiştirmek istiyorsanız, Kutools for Excel'S Tablo Boyutunu Değiştir Yarar.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın :(Şimdi Excel için Kutools'u Ücretsiz İndirin!)
1. Kullandığınız verileri seçin, tıklayın Kutools > Aralık > Tablo Boyutlarını Değiştirme. Ekran görüntüsüne bakın:
2. İletişim kutusunda kontrol edin Listeye çapraz tablo seçeneğini tıklayın ve dönüştürülmüş verileri içine yerleştirmek istediğiniz bir hücre seçin. Sonuç aralığı (tek hücre) Metin kutusu. Ekran görüntüsüne bakın:
3. tık Ok. Şimdi aralık yeri değiştirildi ve sütunlar halinde istiflendi.
Aralığı ve Yığın Verilerini Değiştirme
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!