Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как найти все возможные суммы двух чисел в списке в Excel?

Предположим, что здесь приведен список чисел, теперь вы можете найти все возможные суммы двух чисел в этом списке, как показано ниже. В Excel нет встроенной функции, которая может решить эту задачу. Теперь я представляю вам код VBA для его обработки.
doc все возможные суммы двух чисел 1

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinationsхорошая идея3


List all combinations of two or more lists in Excel sheet

Например, у вас есть два списка значений, и вы хотите объединить эти два списка, чтобы получить все возможные комбинации, как показано ниже. В общем, вы можете комбинировать их один за другим, но если есть десятки значений, необходимых для объединения, этот ручной метод стоит много времени. В этом случае вы можете попробовать применить Kutools for Excel's List All Combinations утилита, которая может быстро генерировать все комбинации из двух или более списков, которые вам нужны. Click for 60 days free trial!
комбинации списка документов
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days.

Find all possible sums of two numbers in a list with VBA code

Если вы хотите найти все возможные суммы двух чисел в списке, вы можете применить ниже код VBA.

1. Нажмите Alt + F11 для отображения Microsoft Visual Basic for Applications окна.

2. Нажмите Insert > Module, скопируйте и вставьте ниже кода в модуль.

VBA: List all possible sums of two numbers in a list

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

doc все возможные суммы двух чисел 2

3. Нажмите Tools > References, в появившемся диалоговом окне проверьте Microsoft Scripting Runtime флажок.

doc все возможные суммы двух чисел 3 doc arrow right doc все возможные суммы двух чисел 4

4. Нажмите OK для закрытия диалогового окна, затем нажмите F5 для запуска кода появляется диалоговое окно, напоминающее вам о выборе списка, чтобы найти возможные суммы.
doc все возможные суммы двух чисел 5

5. Нажмите OK, то все возможные суммы двух чисел в списке перечислены в столбце C.
doc все возможные суммы двух чисел 6

Tip: В строке кода Range («C1»). Resize (xDic.Count, 1), вы можете изменить C1 на другую ячейку, поскольку вам нужно разместить результат.


Find all possible combinations of two lists with List All Combinations

Если вы хотите найти или перечислить все возможные комбинации двух списков, как показано ниже, снимок экрана List All Combinations полезности Kutools for Excel может оказать вам услугу.
doc все возможные суммы двух чисел 7

1. Нажмите Kutools > Insert > List All Combinations.
doc все возможные суммы двух чисел 8

2. в List All Combinations нажмите кнопку выбора, чтобы выбрать первый список, который вы объедините.
doc все возможные суммы двух чисел 9

3. Нажмите Add добавить список в Combinations list раздел.
doc все возможные суммы двух чисел 10

4. Повторите шаг 2 и 3, чтобы добавить второй список в Combinations list.
doc все возможные суммы двух чисел 11

5. Затем нажмите Ok для выбора ячейки для размещения результата комбинации.
doc все возможные суммы двух чисел 12

6. Нажмите OK, Все возможные комбинации перечислены в ячейках.
doc все возможные суммы двух чисел 13

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.