Bagaimana menemukan semua kemungkinan jumlah dua angka dalam daftar di Excel?
Misalkan di sini adalah daftar angka, sekarang dapatkah Anda menemukan semua kemungkinan jumlah dua angka dalam daftar ini seperti gambar di bawah ini yang ditampilkan? Di Excel, tidak ada fungsi bawaan yang dapat menyelesaikan pekerjaan ini. Sekarang saya memperkenalkan Anda kode VBA untuk menanganinya.
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
Jika Anda ingin menemukan semua kemungkinan jumlah dari dua angka dalam daftar, Anda dapat menerapkan kode VBA di bawah ini.
1. tekan Alt + F11 tombol untuk menampilkan Microsoft Visual Basic for Applications jendela.
2. klik Insert > Module, salin dan tempel kode di bawah ini ke modul.
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. klik Tools > References, di dialog popping, centang Microsoft Scripting Runtime checkbox.
4. klik OK untuk menutup dialog, lalu tekan F5 untuk menjalankan kode, dialog muncul untuk mengingatkan Anda memilih daftar untuk menemukan kemungkinan jumlah.
5. klik OK, maka semua kemungkinan jumlah dari dua angka dalam daftar dicantumkan di kolom C.
Tip: Dalam string kode, Range ("C1"). Ubah ukuran (xDic.Count, 1), Anda dapat mengubah C1 ke sel lain karena Anda perlu menempatkan hasilnya.
Find all possible combinations of two lists with List All Combinations
Jika Anda ingin mencari atau mendaftar semua kemungkinan kombinasi dari dua daftar seperti gambar di bawah ini yang ditampilkan, List All Combinations kegunaan Kutools for Excel dapat membantu Anda
Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
1. klik Kutools > Insert > List All Combinations.
2. Dalam List All Combinations dialog, klik tombol pilih untuk memilih daftar pertama yang akan Anda gabungkan.
3. klik Add untuk menambahkan daftar Combinations list bagian.
4. Ulangi langkah 2 dan 3 untuk menambahkan daftar kedua ke Combinations list.
5. Lalu klik Ok untuk memilih sel untuk menempatkan hasil kombinasi.
6. klik OK. Semua kemungkinan kombinasi telah terdaftar dalam sel.