Πώς να βρείτε όλα τα πιθανά αθροίσματα δύο αριθμών σε μια λίστα στο Excel;
Ας υποθέσουμε ότι υπάρχει μια λίστα αριθμών, τώρα θα μπορούσατε να βρείτε όλα τα πιθανά αθροίσματα δύο αριθμών σε αυτήν τη λίστα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης; Στο Excel, δεν υπάρχει ενσωματωμένη λειτουργία που μπορεί να λύσει αυτήν την εργασία. Τώρα σας παρουσιάζω έναν κωδικό VBA για να το χειριστείτε.
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
Εάν θέλετε να βρείτε όλα τα πιθανά αθροίσματα δύο αριθμών σε μια λίστα, μπορείτε να υποβάλετε αίτηση κάτω από τον κωδικό 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
3. κλικ Tools > References, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Microsoft Scripting Runtime κουτάκι.
4. κλικ OK για να κλείσετε το παράθυρο διαλόγου και, στη συνέχεια, πατήστε F5 για να εκτελέσετε τον κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι επιλέγετε μια λίστα για να βρείτε τα πιθανά ποσά.
5. κλικ OK, στη συνέχεια, όλα τα πιθανά αθροίσματα δύο αριθμών στη λίστα παρατίθενται στη στήλη Γ.
Tip: Στη συμβολοσειρά κώδικα, Range ("C1"). Αλλαγή μεγέθους (xDic.Count, 1), μπορείτε να αλλάξετε το C1 σε άλλο κελί, καθώς πρέπει να τοποθετήσετε το αποτέλεσμα.
Find all possible combinations of two lists with List All Combinations
Εάν θέλετε να βρείτε ή να απαριθμήσετε όλους τους πιθανούς συνδυασμούς δύο λιστών όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, το List All Combinations χρησιμότητα του Kutools for Excel μπορεί να σας κάνει μια χάρη.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
1. κλικ Kutools > Insert > List All Combinations.
2. Στο List All Combinations διαλόγου, κάντε κλικ στο κουμπί επιλογής για να επιλέξετε την πρώτη λίστα που θα συνδυάσετε.
3. κλικ Add για να προσθέσετε τη λίστα Combinations list τμήμα.
4. Επαναλάβετε τα βήματα 2 και 3 για να προσθέσετε τη δεύτερη λίστα στο Combinations list.
5. Στη συνέχεια κάντε κλικ στο κουμπί Ok για να επιλέξετε ένα κελί για να τοποθετήσετε το αποτέλεσμα συνδυασμού.
6. κλικ OK. Όλοι οι πιθανοί συνδυασμοί έχουν καταχωριστεί σε κελιά.