Loncat ke daftar isi utama

Bagaimana cara membuat daftar atau menghasilkan semua kemungkinan kombinasi di Excel?

Katakanlah, saya memiliki dua kolom data berikut, dan sekarang, saya ingin membuat daftar semua kemungkinan kombinasi berdasarkan dua daftar nilai seperti yang ditunjukkan pada gambar di kiri. Mungkin, Anda dapat membuat daftar semua kombinasi satu per satu jika ada beberapa nilai, tetapi, jika ada beberapa kolom dengan beberapa nilai yang perlu dicantumkan kemungkinan kombinasi, berikut beberapa trik cepat yang dapat membantu Anda untuk mengatasi masalah ini di Excel .

Buat daftar atau buat semua kemungkinan kombinasi dari dua daftar dengan rumus

Buat daftar atau buat semua kemungkinan kombinasi dari tiga atau lebih daftar dengan kode VBA

Buat daftar atau buat semua kemungkinan kombinasi dari beberapa daftar dengan fitur canggih

Buat daftar atau buat semua kemungkinan kombinasi dari dua daftar dengan rumus

Rumus panjang berikut dapat membantu Anda membuat daftar semua kemungkinan kombinasi dari dua nilai daftar dengan cepat, lakukan hal berikut:

1. Masukkan atau salin rumus di bawah ini ke dalam sel kosong, dalam hal ini, saya akan memasukkannya ke sel D2, lalu tekan Enter kunci untuk mendapatkan hasilnya, lihat tangkapan layar:

=IF(ROW()-ROW($D$2)+1>COUNTA($A$2:$A$5)*COUNTA($B$2:$B$4),"",INDEX($A$2:$A$5,INT((ROW()-ROW($D$2))/COUNTA($B$2:$B$4)+1))&"-"&INDEX($B$2:$B$4,MOD(ROW()-ROW($D$2),COUNTA($B$2:$B$4))+1))

Note: Dalam rumus di atas, $ A $ 2: $ A $ 5 adalah kisaran nilai kolom pertama, dan $ B $ 2: $ B $ 4 adalah rentang nilai daftar kedua yang ingin Anda daftarkan semua kemungkinan kombinasinya, $ D $ 2 adalah sel yang Anda masukkan rumusnya, Anda dapat mengubah referensi sel sesuai kebutuhan Anda.

2. Kemudian pilih sel D2 dan seret gagang isian ke bawah ke sel sampai mendapatkan sel kosong, dan semua kemungkinan kombinasi telah terdaftar berdasarkan dua nilai daftar. Lihat tangkapan layar:

Buat daftar atau buat semua kemungkinan kombinasi dari tiga atau lebih daftar dengan kode VBA

Mungkin rumus diatas agak sulit untuk anda terapkan, jika data kolom banyak maka akan merepotkan untuk dimodifikasi. Di sini, saya akan memperkenalkan kode VBA untuk mengatasinya dengan cepat.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Menghasilkan semua kombinasi dari 3 atau beberapa kolom

Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3 As Range
Dim xRg  As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3 As Integer
Dim xSV1, xSV2, xSV3 As String
Set xDRg1 = Range("A2:A5")  'First column data
Set xDRg2 = Range("B2:B4")  'Second column data
Set xDRg3 = Range("C2:C4")  'Third column data
xStr = "-"   'Separator
Set xRg = Range("E2")  'Output cell
For xFN1 = 1 To xDRg1.Count
    xSV1 = xDRg1.Item(xFN1).Text
    For xFN2 = 1 To xDRg2.Count
        xSV2 = xDRg2.Item(xFN2).Text
      For xFN3 = 1 To xDRg3.Count
        xSV3 = xDRg3.Item(xFN3).Text
        xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
        Set xRg = xRg.Offset(1, 0)
       Next
    Next
Next
End Sub
Note: Pada kode di atas, A2: A5, B2: B4, C2: C4 adalah rentang data yang ingin Anda gunakan, E2 adalah sel keluaran yang ingin Anda temukan hasilnya. Jika Anda ingin mendapatkan semua kombinasi dari lebih banyak kolom, harap ubah dan tambahkan parameter lain ke kode sesuai kebutuhan Anda.

3. Kemudian, tekan F5 kunci untuk menjalankan kode ini, dan semua kombinasi dari 3 kolom akan dibuat sekaligus, lihat tangkapan layar:

Buat daftar atau buat semua kemungkinan kombinasi dari beberapa daftar dengan fitur canggih

Jika ada beberapa daftar nilai perlu dicantumkan kemungkinan kombinasi, mungkin sulit bagi Anda untuk memodifikasi kodenya. Di sini, saya dapat merekomendasikan alat yang ampuh - Kutools untuk Excel, ini berisi fitur praktis Cantumkan Semua Kombinasi yang dapat dengan cepat mencantumkan semua kemungkinan kombinasi berdasarkan daftar data yang diberikan.

Tips:Untuk menerapkan ini Cantumkan Semua Kombinasi fitur, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Klik Kutools > Menyisipkan > Cantumkan Semua Kombinasi, lihat tangkapan layar:

2. di Cantumkan Semua Kombinasi kotak dialog, lakukan operasi seperti yang ditunjukkan di bawah ini:

3. Kemudian semua nilai dan pemisah yang ditentukan telah terdaftar ke dalam kotak dialog, lihat tangkapan layar:

4. Dan kemudian klik Ok tombol, dan kotak prompt akan muncul untuk mengingatkan Anda memilih sel untuk menampilkan hasilnya, lihat tangkapan layar:

5. Klik OK, semua kemungkinan kombinasi berdasarkan daftar yang diberikan telah dihasilkan ke dalam lembar kerja seperti gambar berikut yang ditampilkan:

Klik untuk Mengunduh Kutools untuk Excel Sekarang!

Artikel yang lebih relatif:

  • Hasilkan Semua Kombinasi Dari 3 Atau Beberapa Kolom
  • Misalkan, saya memiliki 3 kolom data, sekarang, saya ingin membuat atau mencantumkan semua kombinasi data dalam 3 kolom ini seperti gambar di bawah ini. Apakah Anda memiliki metode yang bagus untuk menyelesaikan tugas ini di Excel?
  • Temukan Semua Kombinasi Yang Sama Dengan Jumlah Yang Diberikan
  • Misalnya, saya memiliki daftar angka berikut, dan sekarang, saya ingin tahu kombinasi angka mana dalam daftar yang berjumlah 480, pada gambar berikut yang ditampilkan, Anda dapat melihat ada lima kelompok kemungkinan kombinasi yang berjumlah sama. ke 480, seperti 300 + 60 + 120, 300 + 60 + 40 + 80, dll. Artikel ini, saya akan berbicara tentang beberapa metode untuk menemukan sel mana yang merangkum nilai tertentu di Excel.
  • Hasilkan Atau Buat Daftar Semua Kemungkinan Permutasi
  • Misalnya, saya memiliki tiga karakter XYZ, sekarang, saya ingin membuat daftar semua kemungkinan permutasi berdasarkan tiga karakter ini untuk mendapatkan enam hasil yang berbeda seperti ini: XYZ, XZY, YXZ, YZX, ZXY dan ZYX. Di Excel, bagaimana Anda bisa dengan cepat membuat atau membuat daftar semua permutasi berdasarkan jumlah karakter yang berbeda?
  • Hasilkan Daftar Semua Kemungkinan Kombinasi 4 Digit
  • Dalam beberapa kasus, kita mungkin perlu membuat daftar semua kemungkinan kombinasi 4 digit dari angka 0 sampai 9, yang berarti menghasilkan daftar 0000, 0001, 0002… 9999. Untuk menyelesaikan tugas daftar dengan cepat di Excel, saya perkenalkan beberapa trik untuk Anda.

 

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!

 

Comments (42)
Rated 5 out of 5 · 1 ratings
Guilherme Johansson
Guilherme Johansson
This comment was minimized by the moderator on the site
como que poderia gerar uma lista de combinações de nomes no LibreOffice?
Reply
0
0
Rated 5 out of 5
skyyang
skyyang     Guilherme Johansson
This comment was minimized by the moderator on the site
Hello, Johansson

Sorry, the methods in this article are only applied for Microsoft Excel.
Thank you!
Reply
Report
0
0
Nicolaj Ekholm
Nicolaj Ekholm
This comment was minimized by the moderator on the site
Hej alle sammen

Jeg håber at i kan hjælpe med dette.

Jeg har en af de gamle Bastalåse kodelåse med 6 knapper, hvor man kan trykke knapperne ind, lade dem være i neutral eller trække dem ud.

Låsen var åben da jeg købte den, så jeg låste den i håb om at jeg kunne gå kombinationerne igennem.

Men jeg har lidt problemer med at få nedskrevet samtlige kombinationer (729 så vidt jeg kan regne ud).

Er der en der vil hjælpe mig med med dette? Evt. kan man kalde de 3 indstillingsmuligheder pr. knap for: 1-2-3, 1-0-2, eller I-N-U (ind-neutral-ud).


Krydser finger og siger på forhånd mange tak hvis jeg kan få låsen op, det er sådan lidt nostalgi.

Mvh

Nicolaj
Reply
0
0
EDER
EDER
This comment was minimized by the moderator on the site
No 1º Exemplo de captura de tela , está faltando em All combinations Jan - KTE
Reply
0
0
MandyZhou
MandyZhou     EDER
This comment was minimized by the moderator on the site
Hello friend,
How are you. Thank you for your notice. We changed the first ficture. Please check now. Have a nice day.

Sincerely,
Mandy
Reply
Report
0
0
Shahrokh Zadeh
Shahrokh Zadeh
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any of the numbers?
I know there should be 6! = 720 combinations but I need the list.
Thanks
Reply
0
0
Shahrokh Zadeh
Shahrokh Zadeh
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any digit?
I know there should be 6! = 720 combinations but I need the list.
Thanks
Reply
0
0
simplest.becky
simplest.becky
This comment was minimized by the moderator on the site
Hello Extend Office,
I want to extend the VBA code in "List Or Generate All Possible Combinations From Three Or More Lists With VBA Code article"
I want to show only the one's whose total of the combinations is equal to 9. Can you please show the additional extension/lines in the code? sorry, I'm barely new in VBA.
For example, I only want to show the combinations like the following:
1-2-2-2-2 (this is equal to 1+2+2+2+2 = 9) so, it will show the ones whose total is 9, the rest won't show.
1-2-3-1-3 (=9)
1-3-2-1-2 (=9) and so on...

Thanks very much for your help
Dalesimplest.becky15.08.21

Reply
Report
0
0
jericho
jericho
This comment was minimized by the moderator on the site
edited formula to randomize 5 columns instead of 3 but still wont work,why?
Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xF5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg2 = Range("D2:D10") 'Fourth column data
Set xDRg3 = Range("E2:E10") 'Fifth column data
xStr = "," 'Separator
Set xRg = Range("G2") 'Output cell
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
For xFN3 = 1 To xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
End Sub
Reply
0
0
skyyang
skyyang     jericho
This comment was minimized by the moderator on the site
Hello, jericho,You should modify your code as below code, please try it, thank you!<div data-tag="code">Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xFN5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg4 = Range("D2:D10") 'Fourth column data
Set xDRg5 = Range("E2:E10") 'Fifth column data
xStr = "-" 'Separator
Set xRg = Range("H2") 'Output cell
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
For xFN3 = 1 To xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
Next
Next
End Sub
Reply
Report
0
0
robertsu
robertsu
This comment was minimized by the moderator on the site
How to remove the repetition if I have color 1, color 2, color 3 in different orders(i.e. color2, color 3, color 1) but they are the same for my need? tks!
Reply
Report
0
0
Juan Tomás
Juan Tomás
This comment was minimized by the moderator on the site
Excelentes soluciones, muchas gracias, lo logré con Kutools
Reply
0
0
RAFFAELE
RAFFAELE
This comment was minimized by the moderator on the site
NON FUNZIONA. HO SEGUITO GLI STESSI PASSAGGI MA MI DICE CHE C'E' UN ERRORE
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations