Genel olarak TRANSPOSE fonksiyonu genellikle satırları sütunlara dönüştürmek için kullanılabilir. Ancak, benzersiz değerler gibi belirli kriterlere bağlı sonuçlar döndürülmeyecektir. Excel'deki ölçütlere göre satırları sütunlara aktarın.

Alıştırma Çalışma Kitabını İndirin

Bu makaleyi okurken egzersiz yapmak için bu alıştırma çalışma kitabını indirin.

2 Excel'de Kriterlere Dayalı Olarak Satırları Sütunlara Aktarmak için Kullanışlı Yaklaşımlar

Aşağıdaki şekle çeşitli ürünlerden ve miktarlarından oluşan bir veri seti ekledik. satırlar daha sonra sütunlara dönüştürülecektir. Biz satırları kriterlere göre sütunlara dönüştürür ayrı bir hücrede bazı yinelenen girişler olduğu için benzersiz değerlerin İNDEKS , MAÇ , COUNTIF , EĞER ve IFERROR fonksiyonlarını formül oluşturmak için kullanacağız. VBA Aynı şeyi başarmak için kod.

1. Excel'de Ölçütlere Dayalı Olarak Satırları Sütunlara Aktarmak için INDEX, MATCH ve COUNTIF İşlevleri ile Formül Uygulama

Başlangıçta, aşağıdaki formülleri uygulayacağız İNDEKS , MAÇ , COUNTIF , EĞER ve IFERROR fonksiyonlarını diziler ile birlikte kullanabilirsiniz.

Adım 1: INDEX, MATCH ve COUNTIF İşlevlerini Ekleyin

• Hücre içinde E5 benzersiz ürünleri elde etmek için aşağıdaki formülü yazın.

Adım 2: Diziyi Uygulayın

• Formülü bir dizi ile uygulamak için Ctrl + Vardiya + Girin

• Bu nedenle, ilk benzersiz sonucu alacaksınız.

Adım 3: Hücreleri Otomatik Doldurma

• Tüm benzersiz değerleri almak için Otomatik Doldurma Sütunu otomatik olarak doldurmak için Tutamaç Aracı.

Adım 4: IFERROR Fonksiyonlarını Girin

• Miktarların satır değerini sütunlara aktarmak için aşağıdaki formülü yazın.

Adım 5: Diziyi Uygulayın

• Bir dizi eklemek için Ctrl + Vardiya + Girin .

• Sonuç olarak, hücre F5 aşağıda gösterilen resimdeki gibi ilk transpoze değeri gösterecektir.

• ile aşağı sürükleyin Otomatik Doldurma Kolu Aleti sütunu otomatik olarak doldurmak için.

• Son olarak, satırları otomatik olarak Otomatik Doldurma Kolu Aleti .
• Bu nedenle, aktarılan tüm satırlar aşağıda gösterilen görüntüdeki gibi sütunlara dönüşecektir.

Daha Fazla Oku: Excel'de Gruptaki Birden Çok Satırı Sütunlara Dönüştürme

Benzer Okumalar

• Excel'de Yinelenen Satırları Sütunlara Dönüştürme (4 Yol)
• Excel VBA: Gruptaki Birden Çok Satırı Sütunlara Aktarma
• Excel'de Birden Çok Sütunu Tek Bir Sütuna Dönüştürme (3 Kullanışlı Yöntem)
• Excel'de Ters Transpoze Nasıl Yapılır (3 Basit Yöntem)

2. Excel'de Kriterlere Dayalı Olarak Satırları Sütunlara Aktarmak İçin Bir VBA Kodu Çalıştırın

Adım 1: Bir Modül Oluşturun

• İlk olarak, tuşuna basın Alt + F11 başlamak için VBA Makro .
• Tıklayınız Ekleme .
• Oluşturmak için Modül 'yi seçin. Modül seçenek.

Adım 2: VBA Kodlarını Yazın

• Aşağıdakileri yapıştırın VBA

 Sub TransposeRows() 'Değişkenleri Tanımlayın Dim RowsNumber As Long Dim p As Long Dim xColCr As String Dim xColumn As New Collection Dim InputRng As Range Dim OutputRng As Range Dim RngText As String Dim CountRow As Long Dim xRowRg As Range On Error Resume Next 'Input Range için değerleri ve Input Box'ı ayarlayın RngText = ActiveWindow.RangeSelection.Address Set InputRng = Application.InputBox("Select Your InputRange for 2 columns:", "ExcelWIKI", RngText, , , , 8) Set InputRng = Application.Intersect(InputRng, InputRng.Worksheet.UsedRange) 'Yalnızca 2 sütunu saymak ve yalnızca iki sütun seçmek için uyarı msg kutusu göstermek için Koşul Uygula If InputRng Is Nothing Then Exit Sub If (InputRng.Columns.Count 2) Or _ (InputRng.Areas.Count> 1) Then MsgBox "The specified range is only area for 2 columns ",, "ExcelWIKI" Exit Sub End If 'Giriş Aralığı için değerleri ve Giriş Kutusunu ayarla Set OutputRng = Application.InputBox("Select Your Output Range (one cell):", "ExcelWIKI", RngText, , , , 8) If OutputRng Is Nothing Then Exit Sub Set OutputRng = OutputRng.Range(1) 'Count RowsNumber = InputRng.Rows.Count 'Apply For loop For p = 2 To RowsNumber xColumn.Add InputRng.Cells(p, 1).Value, InputRng.Cells(p,1).Value Next Application.ScreenUpdating = False For p = 1 To xColumn.Count xColCr = xColumn.Item(p) OutputRng.Offset(p, 0) = xColCr InputRng.AutoFilter Field:=1, Criteria1:=xColCr Set xRowRg = InputRng.Range("B2:B" & RowsNumber).SpecialCells(xlCellTypeVisible) If xRowRg.Count> CountRow Then CountRow = xRowRg.Count 'Copy and paste with transpose InputRng.Range("B2:B" &RowsNumber).SpecialCells(xlCellTypeVisible).Copy OutputRng.Offset(p, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Application.CutCopyMode = False Next OutputRng = InputRng.Cells(1, 1) OutputRng.Offset(0, 1).Resize(1, CountRow) = InputRng.Cells(1, 2) InputRng.Rows(1).Copy OutputRng.Resize(1, CountRow + 1).PasteSpecial Paste:=xlPasteFormatsInputRng.AutoFilter Application.ScreenUpdating = True End Sub 

Adım 3: Programı Çalıştırın

• Birincisi, Kaydet ve basın F5 programı çalıştırmak için.
• Başlık ile veri setinizi seçin.
• Tıklayınız TAMAM. .

• Almak için bir hücre seçin çıktı
• Daha sonra TAMAM. .

• Sonuç olarak, aşağıdaki resimde gösterildiği gibi satırları sütunlara dönüştürülmüş sonuçlar elde edersiniz.

Daha Fazla Oku: Excel VBA Kullanarak Satırları Sütunlara Dönüştürme (4 İdeal Örnek)

Sonuç

Umarım bu makale size nasıl yapılacağı hakkında bir eğitim vermiştir Excel'de ölçütlere göre satırları sütunlara aktarma Tüm bu prosedürler öğrenilmeli ve veri setinize uygulanmalıdır. Alıştırma çalışma kitabına bir göz atın ve bu becerileri test edin. Değerli desteğiniz sayesinde bunun gibi eğitimler hazırlamaya devam etmek için motive oluyoruz.

Herhangi bir sorunuz varsa - Bize sormaktan çekinmeyin. Ayrıca, aşağıdaki bölüme yorum bırakmaktan çekinmeyin.

Bizler Exceldemy Ekip, sorularınıza her zaman duyarlıdır.

Bizimle kalın & öğrenmeye devam edin.