Excel'de tek bir sütundaki verilerden tüm olası kombinasyonlar nasıl listelenir?
Aşağıdaki ekran görüntüsünde gösterildiği gibi, tek sütunlu verilerden tüm olası kombinasyonları elde etmek istiyorsanız, Excel’de bunu hızlıca yapmanın bir yolu var mı?
Formüllerle tek bir sütundan tüm olası kombinasyonları listeleme
VBA koduyla tek bir sütundan tüm olası kombinasyonları listeleme
Formüllerle tek bir sütundan tüm olası kombinasyonları listeleme
Aşağıdaki dizi formülleri işinizi kolaylaştırmak için size rehberlik edebilir. Lütfen adımları sırayla takip edin:
1. İlk olarak, iki yardımcı formül hücresi oluşturmanız gerekir. C1 hücresine aşağıdaki formülü girin ve sonucu almak için Ctrl + Shift + Enter tuşlarına basın:
2. C2 hücresine aşağıdaki formülü girin ve ikinci sonucu almak için Ctrl + Shift + Enter tuşlarına birlikte basın (ekran görüntüsüne bakın):
3. Ardından, D2 hücresine aşağıdaki formülü kopyalayıp yapıştırın ve ilk sonucu almak için Ctrl + Shift + Enter tuşlarına birlikte basın (ekran görüntüsüne bakın):
4. Ardından bu formül hücresini seçin ve boş hücreler görünene kadar doldurma tutamacını aşağı doğru sürükleyin. Artık belirtilen sütundaki verilerin tüm kombinasyonlarının aşağıdaki örnekte gösterildiği gibi görüntülendiğini görebilirsiniz:
Excel'in sihrini KUTOOLS AI ile keşfedin
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsini basit komutlarla oluşturulan grafiklerle tamamlayın.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve anında uygulayın.
- Formül Yorumlama: Karmaşık formülleri bir çırpıda anlayın.
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
VBA koduyla tek bir sütundan tüm olası kombinasyonları listeleme
Yukarıdaki formüller yalnızca daha yeni Excel sürümlerinde geçerlidir. Daha eski Excel sürümlerinizi kullanıyorsanız, aşağıdaki VBA kodu size yardımcı olabilir.
1. Microsoft Visual Basic for Applications penceresini açmak için aynı anda Alt + F11 tuşlarına basın.
2. Ardından Ekle > Modül seçeneğine tıklayın ve aşağıdaki VBA kodunu pencereye kopyalayıp yapıştırın.
VBA kodu: Tek bir sütundan tüm olası kombinasyonları listeleme
Sub ConnectArr()
'Updateby ExtendOffice
Dim xDValue As Variant
Dim xOutRg As Range
Dim xDictionary As Object
Dim xF As Long
Dim xChar As String
xDValue = Range("A2:A6").Value 'the data range
Set xOutRg = Range("C1") 'output range
xChar = "," 'separator
For xF = 1 To UBound(xDValue)
Set xDictionary = CreateObject("Scripting.Dictionary")
xDictionary(0) = "Sets of " & xF
Call ConnectValue(xDValue, xDictionary, 0, xF, 0, "", xChar)
xOutRg.Offset(0, xF - 1).Resize(xDictionary.Count).Value = WorksheetFunction.Transpose(xDictionary.Items)
Set xDictionary = Nothing
Next
End Sub
Sub ConnectValue(ByRef pDValue, ByRef pDictionary, ByRef pLevel, ByVal pMaxLevel, ByVal pIndex, ByVal pValue, ByVal pChar)
Dim xF As Long
If pLevel = pMaxLevel Then
pDictionary(pDictionary.Count + 1) = pValue
Exit Sub
End If
For xF = pIndex + 1 To UBound(pDValue)
If pValue = "" Then
Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pDValue(xF, 1), pChar)
Else
Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pValue & pChar & pDValue(xF, 1), pChar)
End If
Next
End Sub
- A2:A6: kullanmak istediğiniz veri listesidir;
- C1: sonuçların görüneceği hücredir;
- ,: Kombinasyonları ayırmak için kullanılacak sınırlayıcıdır.
3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın. Tek sütundan alınan tüm kombinasyonlar, aşağıdaki ekran görüntüsünde gösterildiği gibi listelenir:
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve hiç yaşamadığınız bir verimlilik deneyimi 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 arayüz getirir ve 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.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ve ayrıca Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— dakikalar içinde kurulum (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— tek tek eklenti satın alımına göre tasarruf edin