Rastgele sıralama yapmak, tüm servis taleplerinin eşit olasılıkla çıkmasını sağlamanın hızlı ve kolay bir yoludur. Bu öğreticide, birkaç adımda Excel'de bir listeyi kolayca rastgele hale getirme veya karıştırma hakkında konuşacağız.
Bu bölümde size yerleşik Excel işlevleriyle bir listeyi nasıl karıştıracağınızı öğreteceğim.
Herhangi bir Excel sürümünün kullanıcıları, orijinal veri kümelerini kullanarak rastgele sıralayabilir. RAND yardımıyla işlev Sırala özelliği, lütfen aşağıdaki adımları izleyin.
Adım 1: RAND formülünü girin
Rastgele seçeceğiniz listenin üst hücresinin yanındaki hücreyi seçin, aşağıdaki RAND formülünü girin ve tuşuna basın. Keşfet.
=RAND()
Adım 2: RAND formülünü diğer hücrelere doldurun
Formülü aşağıdaki hücrelere uygulamak için formül hücresinin doldurma tutamacına (sağ alt köşedeki küçük yeşil kare) çift tıklayın.
3. Adım: Listeyi karıştırmak için RAND sonuçlarını sıralayın
1. seçmek B2: B8, RAND formülünü içeren liste.
2. Tıklamak Sırala ve Filtrele > En Küçükten En Büyüğe Sırala içinde Kurgu üzerinde grup Ana Sayfa sekmesi.
3. Açılır pencerede Sıralama Uyarısı iletişim kutusunu seçin Seçimi genişletinve sonra üzerine tıklayın Sırala.
Sonuç
Artık hazırsınız! Liste aşağıda gösterildiği gibi randomize edilmiştir.
Microsoft 365 için Excel veya Excel 2021 ya da Web için Excel gibi daha yeni Excel sürümlerinin kullanıcılarıysanız, RANDARRAY, GÖRE SIRALA ve ROWS formül, belirttiğiniz konumda hızlı bir şekilde karışık bir liste almanıza yardımcı olacaktır.
1. Adım: RANDARRAY, SORTBY ve ROWS formülünü girin
Rastgele sonucu almak istediğiniz boş bir hücre seçin, aşağıdaki formülü yazın (Değiştirmeniz gerektiğini unutmayın. A2: A8 aşağıdaki formülde rastgele yapmak istediğiniz orijinal listeye) ve tuşuna basın Keşfet.
=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))
(İsteğe bağlı) 2. Adım: Formül sonucunu düzenlenebilir hale getirmek için kopyalayıp yapıştırın
Yalnızca rastgele bir sonuç görmek istiyorsanız, bu adımı atla. Rastgele karıştırılmış listeyi düzenlemek istiyorsanız, formül sonucunu kopyalayıp yalnızca değerleri yapıştırmalısınız:
1. Formül sonucunu seçin ve tuşuna basın. Ctrl + C kopyalamak için.
2. Kopyalanan sonucu yapıştıracağınız hücreye sağ tıklayın. (Değeri orijinal konumuna da yapıştırabilirsiniz.)
3. Seçin Yalnızca Değerleri Yapıştır sağ tıklama menüsünden seçeneği.
Sonuç
Şimdi aşağıda gösterildiği gibi karıştırılmış ve düzenlenebilir bir liste alacaksınız.
Formül kullanmaktan sıkıldıysanız ve bir eklenti yardımı kullanmayı düşünüyorsanız, Kutools for Excel'S Aralığı Rasgele Olarak Sırala / Seç özelliği, daha fazla seçenekle çok daha kolay rastgele bir sıralama yapmanıza yardımcı olabilir. Lütfen aşağıdaki gibi:
İlk olarak, karıştıracağınız listeyi seçin. Ve sonra seçin Kutools > Aralık > Aralığı Rasgele Olarak Sırala / Seç. Açılır pencerede Aralığı Rasgele Olarak Sırala / Seç iletişim kutusunu seçin Tüm satırlarve sonra üzerine tıklayın Ok.
Bir listeyi VBA yöntemiyle rastgele seçmeyi tercih ederseniz, lütfen aşağıdakileri yapın.
1. Adım: Karıştıracağınız listeyi seçin
Adım 2: VBA kodunu Modül penceresine kopyalayın
1. Basın Ctrl + F11 VBA düzenleyicisini açmak için tıklayın ve ardından Ekle > modül Modül kodu penceresi açmak için.
2. Açılan Modül penceresine aşağıdaki VBA kodunu kopyalayıp yapıştırın.
VBA kodu: Rastgele bir liste sıralama
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
3. Adım: VBA kodunu çalıştırın
Kod penceresinde, F5 veya tıklayın Bu kodu çalıştırmak için düğme.
Sonuç