Come trovare tutte le possibili somme di due numeri in un elenco in Excel?
Se hai bisogno di trovare tutte le possibili somme di due numeri in un elenco o elencare tutte le possibili combinazioni di due elenchi in Excel, non ci sono funzioni integrate per ottenere questo direttamente. Questa guida introduce una soluzione con codice VBA per il calcolo delle somme e l'utilità Elencare tutte le combinazioni in Kutools per Excel per gestire le combinazioni in modo efficiente.
Trova tutte le possibili somme di due numeri in un elenco con il codice VBA
Trova tutte le possibili combinazioni di due elenchi con Elencare tutte le combinazioni
Trova tutte le possibili somme di due numeri in un elenco con il codice VBA
Se vuoi trovare tutte le possibili somme di due numeri in un elenco, puoi applicare il seguente codice VBA.
1. Premi i tasti Alt + F11 per visualizzare la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo, copia e incolla il codice sottostante nel modulo.
VBA: Elenca tutte le possibili somme di due numeri in un elenco
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. Clicca su Strumenti > Riferimenti, nella finestra di dialogo che appare, seleziona la casella di controllo Microsoft Scripting Runtime.
![]() | ![]() | ![]() |
4. Clicca OK per chiudere la finestra di dialogo, quindi premi F5 per eseguire il codice. Apparirà una finestra di dialogo, che ti chiederà di selezionare un elenco per calcolare le possibili somme.
5. Clicca OK, quindi tutte le possibili somme di due numeri dall'elenco verranno visualizzate nella colonna C.
Suggerimento: Nella stringa di codice Intervallo("C1").Ridimensiona(xDic.Conteggio, 1), puoi cambiare C1 in qualsiasi altra cella dove desideri inserire i risultati.
Trova tutte le possibili combinazioni di due elenchi con Elencare tutte le combinazioni
Se vuoi elencare tutte le possibili combinazioni di due elenchi, come mostrato nello screenshot qui sotto, l'utilità Elencare tutte le combinazioni di Kutools per Excel può esserti d'aiuto.
1. Clicca Kutools > Inserisci > Elencare tutte le combinazioni.
2. Nella Elencare tutte le combinazioni finestra di dialogo, clicca sul pulsante di selezione per scegliere il primo elenco che vuoi combinare.
3. Clicca Aggiungi per aggiungere l'elenco nell'area Elenco delle combinazioni sezione.
4. Ripeti i passaggi 2 e 3 per aggiungere il secondo elenco all' Elenco delle combinazioni.
5. Poi clicca Ok per selezionare una cella in cui inserire il risultato della combinazione.
6. Clicca OK. Tutte le possibili combinazioni sono state elencate nelle celle.
Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora
Demo: Trova tutte le possibili combinazioni di due elenchi con Kutools per Excel
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
- Aumenta la tua produttività del50% e riduce centinaia di clic del mouse ogni giorno!