Tip singkat berikut ini akan menjelaskan cara menghasilkan suatu daftar dari sejumlah bilangan unik dan acak menggunakan kombinasi metode-metode pengulangan kode dalam macro VBA Excel.

Adapun langkah pertama penyusunan kode tersebut adalah dengan menyiapkan dua barisan sel variabel yaitu untuk barisan sel A1:E1 dan masing-masing kelima sel di dalamnya. Kemudian identifikasikan barisan sel misalnya dinamakan dengan Baris Acak. Namun sebelum menempatkan kelima sel, pastikan terlebih dahulu agar sel-sel tersebut kosong dengan menuliskan perintah Clear.

Langkah berikutnya dengan menggunakan metode pengulangan For dan Each untuk mengeksekusi perintah mengacak bilangan pada masing-masing sel di barisan sel A1:E1. Kemudian dengan metode Do dan Loop Until perintahkan VBA untuk memasukkan bilangan acaknya misalkan antara 10 hingga 50. Selanjutnya ulangi perintah pada sel berikutnya hingga kelima sel tersebut telah menghasilkan bilangan acaknya.

Berikut ini contoh susunan kode yang dapat anda gunakan pada module VBA Excel:
Sub BilanganAcak()
Dim BarisAcak As Range, SelAcak As Range
Set BarisAcak = Range("A1:E1")
BarisAcak.Clear
For Each SelAcak In BarisAcak
Do
SelAcak.Value = Int(50 * Rnd + 10)
Loop Until WorksheetFunction.CountIf(BarisAcak, SelAcak.Value) = 1
Next SelAcak
End Sub