Bagaimana cara menghasilkan semua kombinasi 3 atau beberapa kolom di Excel?
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?
Hasilkan semua kombinasi berdasarkan 3 kolom data dengan menggunakan rumus
Hasilkan semua kombinasi berdasarkan 3 atau beberapa kolom data dengan menggunakan kode VBA
Hasilkan semua kombinasi berdasarkan 3 kolom data dengan menggunakan rumus
Rumus panjang berikut ini dapat membantu untuk membuat daftar semua kombinasi dari 3 kolom, lakukan seperti ini:
1. Silakan, klik sel tempat untuk menampilkan hasilnya, lalu salin dan tempel rumus di bawah ini ke dalamnya:
Note: Dalam rumus ini: A2: A4, B2: B6, C2: C5 adalah rentang data yang ingin Anda gunakan.
2. Kemudian, seret gagang isian ke sel sampai sel kosong ditampilkan, itu berarti, semua kombinasi dari 3 kolom telah terdaftar, lihat tangkapan layar
Hasilkan semua kombinasi berdasarkan 3 atau beberapa kolom data dengan menggunakan kode VBA
Rumus panjang di atas agak sulit untuk digunakan, jika ada banyak data kolom yang perlu digunakan, 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 Module Window.
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:A4") 'First column data
Set xDRg2 = Range("B2:B6") 'Second column data
Set xDRg3 = Range("C2:C5") '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: A4, B2: B6, C2: C5 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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua kombinasi dari 3 atau beberapa kolom akan dibuat sekaligus, lihat tangkapan layar:
Hasilkan semua kombinasi berdasarkan 3 atau beberapa kolom data dengan menggunakan fitur yang mengagumkan
Jika Anda memiliki Kutools untuk Excel, dengan kekuatannya Cantumkan Semua Kombinasi fitur, Anda dapat membuat daftar semua kombinasi beberapa kolom 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, tentukan data kolom dan pemisah untuk daftar kombinasi seperti gambar berikut yang ditampilkan:
3. Setelah mengatur data dan pemisah, lalu klik Ok tombol, di kotak prompt berikutnya, pilih sel untuk menemukan hasilnya, lihat tangkapan layar:
4. Dan kemudian, klik OK tombol, semua kombinasi telah dibuat segera seperti gambar di bawah ini yang ditampilkan:
Klik untuk Mengunduh Kutools for Excel dan uji coba gratis Sekarang!
Alat Produktivitas Kantor Terbaik
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
- Gabungkan Sel / Baris / Kolom dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... Mencegah Sel Duplikat; Bandingkan Rentang...
- Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
- Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
- Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
- Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
- Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
- Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...
- 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!