Excel'de 3 veya daha fazla sütunun tüm kombinasyonlarını nasıl oluşturabiliriz?
Diyelim ki elinizde 3 sütun veri var ve bu 3 sütundaki verilerin tüm kombinasyonlarını aşağıdaki ekran görüntüsünde gösterildiği gibi oluşturmak ya da listelemek istiyorsunuz. Bu görevi Excel'de çözmek için iyi bir yönteminiz var mı?
Formül kullanarak 3 sütun veriye dayalı olarak tüm kombinasyonları oluşturun
VBA kodu kullanarak 3 veya daha fazla sütun veriye dayalı olarak tüm kombinasyonları oluşturun
Formül kullanarak 3 sütun veriye dayalı olarak tüm kombinasyonları oluşturun
Aşağıdaki uzun formül, 3 sütunun tüm kombinasyonlarını listelemek için yardımcı olabilir, lütfen şu adımları izleyin:
1. Sonucu çıkarmak istediğiniz bir hücreye tıklayın ve ardından aşağıdaki formülü kopyalayıp içine yapıştırın:
Not: Bu formülde: A2:A4, B2:B6, C2:C5 kullanmak istediğiniz veri aralıklarıdır.
2. Ardından, boş hücreler görülene kadar dolgu tutamağını hücrelere doğru aşağı çekin, bu, 3 sütunun tüm kombinasyonlarının listelendiği anlamına gelir, aşağıdaki ekran görüntüsüne bakın:
VBA kodu kullanarak 3 veya daha fazla sütun veriye dayalı olarak tüm kombinasyonları oluşturun
Yukarıdaki uzun formül biraz zor kullanılabilir, eğer birden fazla sütun verisi kullanılıyorsa, değiştirme işlemi zahmetli olabilir. Burada, bunu hızlıca ele almak için size bir VBA kodu tanıtacağım.
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.
2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: 3 veya daha fazla sütunun tüm kombinasyonlarını oluşturun
Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3 As Integer
Dim xSV1, xSV2, xSV3 As String
Set xDRg1 = Range("A2:A4") 'First column data
Set xDRg2 = Range("B2:B6") 'Second column data
Set xDRg3 = Range("C2:C5") 'Third column data
xStr = "-" 'Separator
Set xRg = Range("E2") 'Output cell
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
For xFN3 = 1 To xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
End Sub
Not: Yukarıdaki kodda, A2:A4, B2:B6, C2:C5 kullanmak istediğiniz veri aralığıdır, E2 sonuçları yerleştirmek istediğiniz çıktı hücresidir. Eğer daha fazla sütunun tüm kombinasyonlarını elde etmek istiyorsanız, lütfen kodu gerektiği gibi değiştirin ve diğer parametreleri ekleyin.
3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın ve 3 veya daha fazla sütunun tüm kombinasyonları bir anda oluşturulacaktır, aşağıdaki ekran görüntüsüne bakın:
Harika bir özellik kullanarak 3 veya daha fazla sütun veriye dayalı olarak tüm kombinasyonları oluşturun
Eğer Kutools for Excel'iniz varsa, güçlü Tüm Kombinasyonları Listele özelliği ile birden fazla sütunun tüm kombinasyonlarını hızlı ve kolay bir şekilde listeleyebilirsiniz.
1. Kutools > Ekle > Tüm Kombinasyonları Listele'ye tıklayın, aşağıdaki ekran görüntüsüne bakın:
2. Tüm Kombinasyonları Listele iletişim kutusunda, aşağıdaki ekran görüntüsünde gösterildiği gibi kombinasyonları listelemek için sütun verilerini ve ayırıcıları belirtin:
3. Veri ve ayırıcıyı ayarladıktan sonra, Tamam düğmesine tıklayın, bir sonraki açılır kutuda sonuçları yerleştirecek bir hücre seçin, aşağıdaki ekran görüntüsüne bakın:
4. Ve ardından, Tamam düğmesine tıklayın, tüm kombinasyonlar aşağıdaki ekran görüntüsünde gösterildiği gibi hemen oluşturulacaktır:
Kutools for Excel - Excel'i 300'den fazla temel araçla güçlendirin. Sürekli ücretsiz AI özelliklerinden yararlanın! Hemen Edinin
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin, daha önce hiç yaşamadığınız bir verimlilik deneyimini yaşayın. Kutools for Excel, üretkenliğinizi artıracak ve zamanı kaydetmenizi sağlayacak300’den fazla gelişmiş özellik sunar. En çok ihtiyaç duyduğunuz özelliği almak için buraya tıklayın...
Office Tab, Office’e sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint’te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Aynı pencere içerisinde yeni sekmelerde birden fazla belge açın veya oluşturun, yeni pencerelerde açmak yerine.
- Verimliliğinizi %50 artırın, her gün yüzlerce fare tıklamasını sizin için azaltın!