Melakukan pengurutan acak adalah cara yang cepat dan mudah untuk memastikan bahwa Anda berakhir dengan semua kasus muncul dengan probabilitas yang sama. Dalam tutorial ini, kita akan berbicara tentang cara mudah mengacak, atau mengocok daftar di Excel dalam beberapa langkah.
Di bagian ini, saya akan mengajari Anda cara mengocok daftar dengan fungsi bawaan Excel.
Pengguna versi Excel apa pun dapat secara acak mengurutkan dataset asli mereka dengan menggunakan RAND berfungsi dengan bantuan Jenis fitur, silakan ikuti langkah-langkah di bawah ini.
Langkah 1: Masukkan rumus RAND
Pilih sel di sebelah sel teratas dari daftar yang akan Anda acak, masukkan rumus RAND di bawah ini, dan tekan Enter.
=RAND()
Langkah 2: Isi rumus RAND ke sel lain
Klik dua kali pada gagang isian (kotak hijau kecil di pojok kanan bawah) sel rumus untuk menerapkan rumus ke sel di bawahnya.
Langkah 3: Urutkan hasil RAND untuk mengocok daftar
1. Memilih B2: B8, daftar yang berisi rumus RAND.
2. Klik Sortir & Filter > Urutkan dari yang terkecil ke terbesar dalam Mengedit kelompok di Beranda Tab.
3. Di jendela pop-up Sortir Peringatan dialog, pilih Perluas seleksi, lalu klik Jenis.
Hasil
Sekarang, Anda sudah siap! Daftar ini diacak seperti yang ditunjukkan di bawah ini.
Jika Anda adalah pengguna versi Excel yang lebih baru, misalnya, Excel untuk Microsoft 365 atau Excel 2021, atau Excel untuk Web, RANDARRAY, SORTIR DENGAN serta ROWS rumus akan membantu Anda dengan cepat mendapatkan daftar yang dikocok pada posisi yang Anda tentukan.
Langkah 1: Masukkan rumus RANDARRAY, SORTBY, dan ROWS
Pilih sel kosong tempat Anda ingin mendapatkan hasil acak, ketikkan rumus di bawah ini (Perhatikan bahwa Anda harus mengubah A2: A8 dalam rumus di bawah ke daftar asli yang ingin Anda acak) dan tekan Enter.
=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))
(Opsional) Langkah 2: Salin dan tempel hasil rumus agar dapat diedit
Jika Anda hanya ingin melihat hasil acak, Anda bisa Lewati langkah ini. Jika Anda ingin mengedit daftar yang diacak secara acak, Anda harus menyalin hasil rumus dan menempelkan nilai saja:
1. Pilih hasil rumus dan tekan Ctrl + C untuk menyalinnya
2. Klik kanan pada sel tempat Anda akan menempelkan hasil yang disalin. (Anda juga dapat menempelkan nilai ke lokasi aslinya.)
3. Pilih Tempelkan Nilai Saja pilihan dari menu klik kanan.
Hasil
Sekarang Anda akan mendapatkan daftar yang diacak dan dapat diedit seperti yang ditunjukkan di bawah ini.
Jika Anda bosan menggunakan rumus dan berniat menggunakan bantuan add-in, Kutools untuk Excel'S Sortir / Pilih Rentang Secara Acak fitur dapat membantu Anda melakukan pengurutan acak lebih mudah dengan lebih banyak opsi. Silahkan jadi sebagai berikut:
Pertama, pilih daftar yang akan Anda acak. Dan kemudian pilih Kutools > Jarak > Sortir / Pilih Rentang Secara Acak. Di jendela munculan Sortir / Pilih Rentang Secara Acak dialog, pilih Seluruh baris, lalu klik Ok.
Jika Anda lebih suka mengacak daftar dengan metode VBA, lakukan hal berikut.
Langkah 1: Pilih daftar yang akan Anda acak
Langkah 2: Salin kode VBA ke jendela Modul
1. tekan Ctrl + F11 untuk membuka editor VBA, lalu klik Menyisipkan > Modul untuk membuka jendela kode Modul.
2. Salin dan tempel kode VBA di bawah ini ke jendela Modul yang terbuka.
Kode VBA: Urutkan daftar secara acak
Sub RandomSort()
'Update by ExtendOffice
Dim xRg As Range
Dim xNum, xF, xI As Integer
Dim xWSh, xAWSh As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xAWSh = Application.ActiveSheet
Set xRg = ActiveWindow.RangeSelection
Set xWSh = Worksheets.Add
xNum = xRg.Count
For xF = xNum To 1 Step -1
xI = WorksheetFunction.RandBetween(1, xF)
xWSh.Range("A1").Value = xRg.Item(xI)
xRg.Item(xI) = xRg.Item(xF)
xRg.Item(xF) = xWSh.Range("A1")
Next
xWSh.Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Di jendela kode, tekan F5 atau klik tombol untuk menjalankan kode ini.
Hasil