¿Cómo encontrar todas las combinaciones posibles de sumas de dos números en una lista en Excel?
Si necesita hallar todas las sumas posibles de dos números en una lista o generar todas las combinaciones posibles entre dos listas en Excel, no existen funciones integradas que lo hagan directamente. Esta guía ofrece una solución mediante código VBA para calcular esas sumas y presenta la utilidad *Listar todas las combinaciones* de Kutools para Excel, ideal para gestionar combinaciones de forma eficiente.
Find all possible sums of two numbers in a list with VBA code
Find all possible combinations of two lists with List All Combinations 
Find all possible sums of two numbers in a list with VBA code
Si desea obtener todas las sumas posibles de dos números en una lista, puede utilizar el siguiente código VBA.
1. Pulse las teclas Alt + F11 para mostrar la ventana Microsoft Visual Basic for Applications.
2. Haga clic en Insertar > Módulo y copie y pegue el siguiente código en el módulo.
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
3. Haga clic en Tools > References. En el cuadro de diálogo emergente, active la casilla Microsoft Scripting Runtime.
 |  |  |
4. Haga clic en OK para cerrar el cuadro de diálogo y, a continuación, pulse F5 para ejecutar el código. Aparecerá un cuadro de diálogo que le pedirá que seleccione una lista para calcular las sumas posibles.
5. Haga clic en OK y todas las sumas posibles de dos números de la lista aparecerán en la columna C.
Consejo: En la cadena de código Range("C1").Resize(xDic.Count, 1), puedes cambiar C1 por cualquier otra celda en la que quieras colocar los resultados.
Find all possible combinations of two lists with List All Combinations
Si desea enumerar todas las combinaciones posibles de dos listas, como se muestra en la siguiente captura de pantalla, la utilidad List All Combinations de Kutools for Excel puede ayudarle.
1. Haga clic en Kutools > Insertar > Listar todas las combinaciones.
2. En el cuadro de diálogo List All Combinations, haga clic en el botón de selección para elegir la primera lista que desea combinar.
3. Haga clic en Add para añadir la lista a la sección Combinations list.
4. Repita los pasos 2 y 3 para añadir la segunda lista a la Combinations list.
5. A continuación, haga clic en Ok para seleccionar una celda donde colocar el resultado de la combinación.
6. Haga clic en OK. Todas las combinaciones posibles se han enumerado en las celdas.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Demostración: Encuentre todas las combinaciones posibles de dos listas con Kutools para Excel
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos