Μετάβαση στο κύριο περιεχόμενο

Τυχαιοποίηση λίστας στο Excel (Εύκολος οδηγός βήμα προς βήμα)

Η εκτέλεση τυχαίας ταξινόμησης είναι ένας γρήγορος και εύκολος τρόπος για να διασφαλίσετε ότι θα καταλήξετε να εμφανίζονται όλες οι περιπτώσεις με ίσες πιθανότητες. Σε αυτό το σεμινάριο, θα μιλήσουμε για το πώς να τυχαιοποιήσετε εύκολα ή να ανακατέψετε μια λίστα στο Excel σε λίγα βήματα.


Βίντεο: Τυχαιοποιήστε μια λίστα στο Excel


Τυχαιοποιήστε μια λίστα με συναρτήσεις

Σε αυτήν την ενότητα, θα σας διδάξω πώς να ανακατεύετε μια λίστα με ενσωματωμένες λειτουργίες του Excel.

Τυχαιοποιήστε μια λίστα με τη συνάρτηση RAND

Οι χρήστες οποιασδήποτε έκδοσης του Excel μπορούν να ταξινομήσουν τυχαία το αρχικό σύνολο δεδομένων τους χρησιμοποιώντας το Rand λειτουργούν με τη βοήθεια του Είδος χαρακτηριστικό, ακολουθήστε τα παρακάτω βήματα.

Βήμα 1: Εισαγάγετε τον τύπο RAND

Επιλέξτε το κελί δίπλα στο επάνω κελί της λίστας που θα τυχαιοποιήσετε, εισαγάγετε τον παρακάτω τύπο RAND και πατήστε εισάγετε.

=RAND()

Βήμα 2: Συμπληρώστε τον τύπο RAND σε άλλα κελιά

Κάντε διπλό κλικ στη λαβή πλήρωσης (το μικρό πράσινο τετράγωνο στην κάτω δεξιά γωνία) του κελιού τύπου για να εφαρμόσετε τον τύπο στα παρακάτω κελιά.

Βήμα 3: Ταξινομήστε τα αποτελέσματα RAND για να ανακατέψετε τη λίστα

1. επιλέξτε Β2: Β8, τη λίστα που περιέχει τον τύπο RAND.

2. Κάντε κλικ στο Ταξινόμηση & φίλτρο > Ταξινόμηση μικρότερο σε μεγαλύτερο στο Επεξεργασία ομάδα για το Home Tab.

3. Στο αναδυόμενο παράθυρο Προειδοποίηση ταξινόμησης διαλόγου, επιλέξτε Αναπτύξτε την επιλογή, και στη συνέχεια κάντε κλικ στο κουμπί Είδος.

Αποτέλεσμα

Τώρα, είστε έτοιμοι! Η λίστα είναι τυχαιοποιημένη όπως φαίνεται παρακάτω.

Σημείωση: Η Λειτουργία Excel RAND είναι πτητικό: Υπολογίζει εκ νέου το αποτέλεσμά του σε κάθε αλλαγή φύλλου εργασίας. Έτσι, οι αριθμοί στη στήλη Β άλλαξαν αμέσως μετά την ταξινόμηση. Εάν θέλετε να ανακατέψετε ξανά τη λίστα, επαναλάβετε τα παραπάνω βήμα 3. Διαφορετικά, θα μπορούσατε απλώς να διαγράψετε τη στήλη με τη συνάρτηση RAND.
Τυχαιοποίηση λίστας με συναρτήσεις RANDARRAY, SORTBY και ROWS (Excel 365/2021)

Εάν είστε χρήστες νεότερων εκδόσεων του Excel, για παράδειγμα, Excel για Microsoft 365 ή Excel 2021 ή Excel για το Web, το RANDARRAY, ΤΑΞΙΝΟΜΗΣΗ ΚΑΤΑ και ROWS ο τύπος θα σας βοηθήσει να ανακατέψετε γρήγορα μια λίστα στη θέση που καθορίσατε.

Βήμα 1: Εισαγάγετε τον τύπο RANDARRAY, SORTBY και ROWS

Επιλέξτε ένα κενό κελί όπου θέλετε να λάβετε το τυχαιοποιημένο αποτέλεσμα, πληκτρολογήστε τον παρακάτω τύπο (Σημειώστε ότι πρέπει να αλλάξετε A2: A8 στον παρακάτω τύπο στην αρχική λίστα που θέλετε να τυχαιοποιήσετε) και πατήστε εισάγετε.

=SORTBY(A2:A8,RANDARRAY(ROWS(A2:A8)))

Σημείωση:
  • #ΔΙΑΡΡΟΗ τα σφάλματα επιστρέφονται όταν το εύρος διαρροής (Β2: Β8 σε αυτήν την περίπτωση) γιατί ο τύπος δεν είναι κενός.
  • Ο τύπος είναι ασταθής: Υπολογίζει εκ νέου το αποτέλεσμά του σε κάθε αλλαγή φύλλου εργασίας. Εάν θέλετε να ανακατέψετε ξανά τη λίστα, πατήστε F9.
  • Το αποτέλεσμα του τύπου (τυχαιοποιημένη λίστα) δεν είναι επεξεργάσιμο. Εάν πρέπει να επεξεργαστείτε την τυχαία λίστα, ακολουθήστε το επόμενο βήμα.

(Προαιρετικό) Βήμα 2: Αντιγράψτε και επικολλήστε το αποτέλεσμα του τύπου για να το κάνετε επεξεργάσιμο

Εάν θέλετε να δείτε μόνο ένα τυχαίο αποτέλεσμα, μπορείτε παραλείψτε αυτό το βήμα. Εάν θέλετε να επεξεργαστείτε τη λίστα τυχαία ανακατεμένη, θα πρέπει να αντιγράψετε το αποτέλεσμα του τύπου και να επικολλήσετε μόνο τις τιμές:

1. Επιλέξτε το αποτέλεσμα του τύπου και πατήστε Ctrl + C να το αντιγράψετε.

2. Κάντε δεξί κλικ σε ένα κελί όπου θα επικολλήσετε το αντιγραμμένο αποτέλεσμα. (Μπορείτε επίσης να επικολλήσετε την τιμή στην αρχική της θέση.)

3. Επιλέξτε το Επικόλληση μόνο τιμών επιλογή από το μενού με δεξί κλικ.

Αποτέλεσμα

Τώρα θα λάβετε μια ανακατεμένη και επεξεργάσιμη λίστα όπως φαίνεται παρακάτω.


Τυχαιοποιήστε μια λίστα στο Excel με Kutools με 2 κλικ

Εάν έχετε βαρεθεί να χρησιμοποιείτε τύπους και σκοπεύετε να χρησιμοποιήσετε τη βοήθεια ενός πρόσθετου, Kutools για Excel'S Ταξινόμηση / Επιλογή Εύρους Τυχαία Το χαρακτηριστικό μπορεί να σας βοηθήσει να εκτελέσετε μια τυχαία ταξινόμηση πολύ πιο εύκολα με περισσότερες επιλογές. Παρακαλούμε ως εξής:

Πρώτα, επιλέξτε τη λίστα που θα ανακατέψετε. Και μετά επιλέξτε Kutools > Σειρά > Ταξινόμηση / Επιλογή Εύρους Τυχαία. Στο αναδυόμενο παράθυρο Ταξινόμηση / Επιλογή Εύρους Τυχαία διαλόγου, επιλέξτε Ολόκληρες σειρές, και στη συνέχεια κάντε κλικ στο κουμπί Ok.

Σημείωση:

Τυχαιοποιήστε μια λίστα με VBA

Εάν προτιμάτε να τυχαιοποιήσετε μια λίστα με τη μέθοδο VBA, κάντε τα εξής.

Σημείωση: Δεν μπορείτε να αναιρέσετε μετά την εκτέλεση μιας μακροεντολής VBA. Επομένως, δημιουργήστε ένα αντίγραφο της λίστας κάπου αλλού σε περίπτωση που χρειαστείτε τα πρωτότυπα δεδομένα στο μέλλον.

Βήμα 1: Επιλέξτε τη λίστα που θα ανακατέψετε

Βήμα 2: Αντιγράψτε τον κώδικα VBA στο παράθυρο Module

1. Τύπος Ctrl + F11 για να ανοίξετε το πρόγραμμα επεξεργασίας VBA και, στη συνέχεια, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης για να ανοίξετε ένα παράθυρο κωδικού μονάδας.

2. Αντιγράψτε και επικολλήστε τον κώδικα VBA παρακάτω στο ανοιχτό παράθυρο Module.

Κωδικός VBA: Τυχαία ταξινόμηση λίστας

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: Εκτελέστε τον κώδικα VBA

Στο παράθυρο κώδικα, πατήστε F5 ή κάντε κλικ στο κουμπί για να εκτελέσετε αυτόν τον κωδικό.

Αποτέλεσμα

Σημείωση: Εάν θέλετε να τυχαιοποιήσετε ξανά τη λίστα, επαναλάβετε τα παραπάνω βήμα 3.
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations