Note: The other languages of the website are Google-translated. Back to English

สุ่มรายการใน Excel (สอนทีละขั้นตอนอย่างง่าย)

การจัดเรียงแบบสุ่มเป็นวิธีที่ง่ายและรวดเร็วเพื่อให้แน่ใจว่าคุณจะลงเอยด้วยทุกกรณีที่พลิกด้วยความน่าจะเป็นที่เท่ากัน ในบทช่วยสอนนี้ เราจะพูดถึงวิธีการสุ่มหรือสุ่มรายการใน Excel ในไม่กี่ขั้นตอน


สุ่มรายการด้วยฟังก์ชัน

ในส่วนนี้ ฉันจะสอนวิธีสับเปลี่ยนรายการด้วยฟังก์ชัน Excel ในตัว

สุ่มรายการด้วยฟังก์ชัน RAND

ผู้ใช้ Excel เวอร์ชันใดก็ได้สามารถจัดเรียงชุดข้อมูลดั้งเดิมแบบสุ่มได้โดยใช้ RAND ฟังก์ชั่นด้วยความช่วยเหลือของ ประเภท โปรดทำตามขั้นตอนด้านล่าง

ขั้นตอนที่ 1: ป้อนสูตร RAND

เลือกเซลล์ถัดจากเซลล์บนสุดของรายการที่คุณจะสุ่ม ป้อนสูตร RAND ด้านล่างแล้วกด เข้าสู่.

=RAND()

ขั้นตอนที่ 2: เติมสูตร RAND ลงในเซลล์อื่น

ดับเบิลคลิกที่จุดจับเติม (สี่เหลี่ยมสีเขียวเล็กๆ ที่มุมขวาล่าง) ของเซลล์สูตรเพื่อใช้สูตรกับเซลล์ด้านล่าง

ขั้นตอนที่ 3: เรียงลำดับผลลัพธ์ RAND เพื่อสุ่มรายการ

1 เลือก B2: B8รายการที่มีสูตร RAND

2 คลิกที่ จัดเรียงและกรอง > เรียงลำดับจากน้อยที่สุดไปหามากที่สุด ใน การตัดต่อ กลุ่มใน หน้าแรก แถบ

3. ในป๊อปอัป คำเตือนการเรียงลำดับ ใหเลือก ขยายส่วนที่เลือกจากนั้นคลิกที่ ประเภท.

ผล

ตอนนี้คุณพร้อมแล้ว! รายชื่อสุ่มตามภาพด้านล่าง

หมายเหตุ พื้นที่ ฟังก์ชัน RAND ของ Excel มีความผันผวน: จะคำนวณผลลัพธ์ใหม่ในทุกการเปลี่ยนแปลงเวิร์กชีต ดังนั้น ตัวเลขในคอลัมน์ B จึงเปลี่ยนไปทันทีหลังจากจัดเรียง หากคุณต้องการสับเปลี่ยนรายการอีกครั้ง ให้ทำซ้ำขั้นตอนด้านบน ขั้นตอนที่ 3. มิฉะนั้น คุณสามารถลบคอลัมน์ด้วยฟังก์ชัน RAND ได้
สุ่มรายการด้วยฟังก์ชัน RANDARRAY, SORTBY และ ROWS (Excel 365/2021)

หากคุณเป็นผู้ใช้ Excel เวอร์ชันใหม่กว่า เช่น Excel สำหรับ Microsoft 365 หรือ Excel 2021 หรือ Excel สำหรับเว็บ รันดาร์เรย์, เรียงลำดับ และ แถว สูตรจะช่วยให้คุณได้รับรายการสับในตำแหน่งที่คุณระบุได้อย่างรวดเร็ว

ขั้นตอนที่ 1: ป้อนสูตร RANDARRAY, SORTBY และ ROWS

เลือกเซลล์ว่างที่คุณต้องการรับผลการสุ่ม พิมพ์สูตรด้านล่าง (โปรดทราบว่าคุณควรเปลี่ยน A2: A8 ในสูตรด้านล่างไปยังรายการเดิมที่คุณต้องการสุ่ม) แล้วกด เข้าสู่.

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

หมายเหตุ
  • #หก ข้อผิดพลาดจะถูกส่งกลับเมื่อช่วงการรั่วไหล (B2: B8 ในกรณีนี้) สำหรับสูตรไม่ว่างเปล่า
  • สูตรไม่แน่นอน: สูตรจะคำนวณผลลัพธ์ใหม่ในทุกการเปลี่ยนแปลงเวิร์กชีต หากต้องการสับเปลี่ยนรายการอีกครั้ง ให้กด F9.
  • ผลลัพธ์ของสูตร (รายการแบบสุ่ม) ไม่สามารถแก้ไขได้ หากคุณต้องการแก้ไขรายการสุ่ม ให้ทำตามขั้นตอนถัดไป

(ไม่บังคับ) ขั้นตอนที่ 2: คัดลอกและวางผลลัพธ์ของสูตรเพื่อให้แก้ไขได้

หากคุณต้องการดูผลลัพธ์แบบสุ่ม คุณสามารถทำได้ ข้ามขั้นตอนนี้. หากคุณต้องการแก้ไขรายการสับแบบสุ่ม คุณควรคัดลอกผลลัพธ์ของสูตรและวางเฉพาะค่า:

1. เลือกผลลัพธ์ของสูตรแล้วกด Ctrl + C เพื่อคัดลอก

2. คลิกขวาที่เซลล์ที่คุณจะวางผลลัพธ์ที่คัดลอกไว้ (คุณยังสามารถวางค่าลงในตำแหน่งเดิมได้อีกด้วย)

3 เลือก วางค่าเท่านั้น ตัวเลือกจากเมนูคลิกขวา

ผล

ตอนนี้ คุณจะได้รายการที่สับเปลี่ยนและแก้ไขได้ดังที่แสดงด้านล่าง


สุ่มรายการใน Excel ด้วย Kutools ใน 2 คลิก

หากคุณเบื่อกับการใช้สูตรและตั้งใจที่จะใช้ความช่วยเหลือของ Add-in Kutools สำหรับ Excel's จัดเรียง / เลือกช่วงแบบสุ่ม ฟีเจอร์นี้ช่วยให้คุณจัดเรียงแบบสุ่มได้ง่ายขึ้นด้วยตัวเลือกที่มากขึ้น ขอความกรุณาดังนี้

ขั้นแรก เลือกรายการที่คุณจะสุ่ม แล้วเลือก Kutools > พิสัย > จัดเรียง / เลือกช่วงแบบสุ่ม. ในป๊อปอัป จัดเรียง / เลือกช่วงแบบสุ่ม ใหเลือก ทั้งแถวจากนั้นคลิกที่ Ok.

หมายเหตุ

สุ่มรายการด้วย VBA

หากคุณต้องการสุ่มรายชื่อด้วยวิธี VBA โปรดทำดังนี้

หมายเหตุ คุณไม่สามารถยกเลิกได้หลังจากเรียกใช้แมโคร VBA ดังนั้นให้ทำสำเนารายการไว้ที่อื่นเผื่อว่าคุณต้องการข้อมูลต้นฉบับในอนาคต

ขั้นตอนที่ 1: เลือกรายการที่คุณจะสุ่ม

ขั้นตอนที่ 2: คัดลอกรหัส VBA ไปยังหน้าต่างโมดูล

1 กด Ctrl + F11 เพื่อเปิดโปรแกรมแก้ไข VBA จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อเปิดหน้าต่างรหัสโมดูล

2. คัดลอกและวางรหัส VBA ด้านล่างไปที่หน้าต่างโมดูลที่เปิดอยู่

รหัส 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.
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL