Izvajanje naključnega razvrščanja je hiter in enostaven način za zagotovitev, da se na koncu prikažejo vsi primeri z enako verjetnostjo. V tej vadnici bomo govorili o tem, kako preprosto naključno razvrstiti ali premešati seznam v Excelu v nekaj korakih.
V tem razdelku vas bom naučil, kako premešati seznam z vgrajenimi Excelovimi funkcijami.
Uporabniki katere koli različice Excela lahko naključno razvrstijo svoj izvirni nabor podatkov z uporabo RAND delujejo s pomočjo Razvrščanje sledite spodnjim korakom.
1. korak: Vnesite formulo RAND
Izberite celico poleg zgornje celice seznama, ki ga boste naključno razporedili, vnesite spodnjo formulo RAND in pritisnite Vnesite.
=RAND()
2. korak: Izpolnite formulo RAND v druge celice
Dvokliknite ročico za polnjenje (majhen zeleni kvadrat v spodnjem desnem kotu) celice s formulo, da uporabite formulo za spodnje celice.
3. korak: Razvrstite rezultate RAND, da premešate seznam
1. Izberite B2: B8, seznam, ki vsebuje formulo RAND.
2. Kliknite na Razvrsti in filtriraj > Razvrsti od Najmanjše do Največje v Urejanje skupina na Home tab.
3. V pojavnem oknu Razvrsti opozorilo dialog, izberite Razširite izborin nato kliknite na Razvrščanje.
Rezultat
Zdaj ste pripravljeni! Seznam je naključno razvrščen, kot je prikazano spodaj.
Če uporabljate novejše različice Excela, na primer Excel za Microsoft 365 ali Excel 2021 ali Excel za splet, RANDARRAY, RAZVRSTI PO in ROWS formula vam bo pomagala hitro dobiti premešan seznam na mestu, ki ste ga določili.
1. korak: Vnesite formulo RANDARRAY, SORTBY in ROWS
Izberite prazno celico, kjer želite dobiti naključni rezultat, vnesite spodnjo formulo (upoštevajte, da bi morali spremeniti A2: A8 v spodnji formuli na prvotni seznam, ki ga želite naključno razvrstiti) in pritisnite Vnesite.
=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))
(Izbirno) 2. korak: Kopirajte in prilepite rezultat formule, da ga bo mogoče urejati
Če želite videti samo naključen rezultat, lahko preskočite ta korak. Če želite urediti naključno premešan seznam, kopirajte rezultat formule in prilepite samo vrednosti:
1. Izberite rezultat formule in pritisnite Ctrl + C da ga kopirate.
2. Z desno miškino tipko kliknite celico, kamor boste prilepili kopirani rezultat. (Vrednost lahko tudi prilepite na prvotno mesto.)
3. Izberite Prilepi samo vrednosti možnost v meniju z desnim klikom.
Rezultat
Zdaj boste dobili premešan seznam, ki ga je mogoče urejati, kot je prikazano spodaj.
Če ste utrujeni od uporabe formul in nameravate uporabiti pomoč dodatka, Kutools za ExcelJe Naključno razvrsti / izberi obseg funkcija vam lahko z več možnostmi pomaga veliko lažje izvesti naključno razvrščanje. Prosimo, da kot sledi:
Najprej izberite seznam, ki ga boste premešali. In nato izberite Kutools > Območje > Naključno razvrsti / izberi obseg. V pojavnem oknu Naključno razvrsti / izberi obseg dialog, izberite Cele vrsticein nato kliknite na Ok.
Če želite seznam naključno razvrstiti z metodo VBA, naredite naslednje.
1. korak: Izberite seznam, ki ga boste premešali
2. korak: Kopirajte kodo VBA v okno modula
1. Pritisnite Ctrl + F11 da odprete urejevalnik VBA, in nato kliknite Vstavi > Moduli da odprete okno s kodo modula.
2. Kopirajte in prilepite spodnjo kodo VBA v odprto okno modula.
Koda VBA: naključno razvrščanje seznama
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
V oknu kode pritisnite F5 ali kliknite na gumb za zagon te kode.
Rezultat