Excel'de bir listedeki iki sayının tüm olası toplamlarını nasıl bulabilirim?

Eğer bir listedeki iki sayının tüm olası toplamlarını bulmanız veya Excel'de iki listenin tüm olası kombinasyonlarını listelemeniz gerekiyorsa, bunu doğrudan gerçekleştirebilecek yerleşik fonksiyonlar bulunmamaktadır. Bu kılavuz, toplamları hesaplamak için bir VBA kod çözümü ve kombinasyonları verimli bir şekilde işlemek için Kutools for Excel'in Tüm Kombinasyonları Listele özelliğini tanıtmaktadır.

VBA kodu ile bir listedeki iki sayının tüm olası toplamlarını bulun

Tüm Kombinasyonları Listele ile iki listenin tüm olası kombinasyonlarını bulun

VBA kodu ile bir listedeki iki sayının tüm olası toplamlarını bulun

Bir listedeki iki sayının tüm olası toplamlarını bulmak istiyorsanız, aşağıdaki VBA kodunu uygulayabilirsiniz.

1. Microsoft Visual Basic for Applications penceresini görüntülemek için Alt + F11 tuşlarına basın.

2. Ekle > Modül'e tıklayın, aşağıdaki kodu kopyalayıp modüle yapıştırın.

VBA: Bir listedeki iki sayının tüm olası toplamlarını listeleyin

Sub Combinations()
'UpdatebyExtendoffice20180628
    Dim xRgArr
    Dim xNum As Long
    Dim I, J, K As Long
    Dim xTemp As Double
    Dim xRg As Range
    Dim xRgCount As Long
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select a list (one column):", "KuTools for Excel", Selection.Address, , , , , 8)
    If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub
    xRgCount = xRg.Count
    K = 1
    ReDim xRgArr(1 To xRgCount)
    For Each xCell In xRg
      xRgArr(K) = xCell.Value
      K = K + 1
    Next
    K = 0
    For I = 1 To xRgCount
        For J = I + 1 To xRgCount
            xTemp = xRgArr(I) + xRgArr(J)
            If Not xDic.Exists(xTemp) Then
                xDic.Add CDbl(xTemp), CStr(xTemp)
                K = K + 1
            End If
        Next
    Next
    Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)
End Sub

3. Araçlar > Referanslar'a tıklayın, açılan diyalogda Microsoft Scripting Runtime onay kutusunu işaretleyin.

4. Tıklayın Tamam diyalogu kapatmak için, ardından F5 tuşuna basarak kodu çalıştırın. Olası toplamları hesaplamak için bir liste seçmenizi isteyen bir diyalog penceresi açılacaktır.

5. Tıklayın Tamam, ardından listedeki iki sayının tüm olası toplamları C sütununda gösterilecektir.

İpucu: Kod dizesindeki Aralık("C1").YenidenBoyutlandır(xDic.Sayısı, 1) bölümünde, sonuçları yerleştirmek istediğiniz başka bir hücreye C1'i değiştirebilirsiniz.

Tüm Kombinasyonları Listele ile iki listenin tüm olası kombinasyonlarını bulun

Aşağıdaki ekran görüntüsünde gösterildiği gibi iki listenin tüm olası kombinasyonlarını listelemek istiyorsanız, Tümünü Listele yardımcı programı Kutools for Excel size yardımcı olabilir.

1. Tıklayın Kutools > Ekle > Tüm Kombinasyonları Listele.

2. Tüm Kombinasyonları Listele diyalogunda, birleştireceğiniz ilk listeyi seçmek için seçme düğmesine tıklayın.

3. Tıklayın Ekle listeyi ekleme işlemini başlatmak için Kombinasyon Listesi bölümüne ekleyin.

4. İkinci listeyi Kombinasyon Listesi.

5. Ardından Tamam 'a tıklayarak kombinasyon sonucunu yerleştireceğiniz hücreyi seçin.

6. Tıklayın Tamam. Tüm olası kombinasyonlar hücrelerde listelenmiştir.

Demo: Kutools for Excel ile iki listenin tüm olası kombinasyonlarını bulun