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

1. ในแผ่นงานเปล่าพิมพ์ส่วนหัวคอลัมน์ในช่วง A1: C1 ตามภาพหน้าจอด้านล่างที่แสดง:

2. ป้อนสูตรในคอลัมน์ A คอลัมน์ B และคอลัมน์ C:

(1) ในเซลล์ A2 ให้ป้อนสูตร = RAND ()แล้วลากจุดจับเติมไปยังช่วง A2: A50
(2) ในเซลล์ B2 ให้ป้อนสูตร =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1แล้วลาก Fill Handle ไปที่ Range B2: B50 (ในสูตร A2 คือตัวเลขสุ่มที่เหลืออยู่ในเซลล์ปัจจุบัน $ A $ 2: $ A $ 50 เป็นตัวเลขสุ่มทั้งหมดที่เราได้รับจากสูตรแรก B $ 1 คือเซลล์แรกในคอลัมน์ B และ B1 คือเซลล์ที่อยู่เหนือกระแส เซลล์).
(3) ในช่วง C2: C50 ให้ป้อนหมายเลขลำดับตั้งแต่ 1 ถึง 49

จากนั้นคุณจะได้ตารางตามภาพหน้าจอด้านซ้ายที่แสดง:

 

สูตรซับซ้อนเกินไปที่จะจำ? บันทึกสูตรเป็นรายการข้อความอัตโนมัติเพื่อใช้ซ้ำได้ในคลิกเดียวในอนาคต! อ่านเพิ่มเติม ...     ทดลองใช้ฟรี

3. ค้นหาช่วงว่างพิมพ์หมายเลขลำดับตามแนวนอนในแถวด้านล่างภาพหน้าจอที่แสดง:

4. ใต้หมายเลขลำดับแรกของ 1 ให้ป้อนสูตร = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALSE) เข้าไปแล้วลาก Fill Handle ไปยังช่วงที่คุณต้องการ

หมายเหตุ: ในสูตรนี้ G1 คือเซลล์ที่มีหมายเลขลำดับแรกเป็น 1, $ B $ 1: $ C $ 50 คือคอลัมน์อันดับที่ไม่ซ้ำกันและคอลัมน์หมายเลขบอล 2 หมายถึงค้นหาค่าในคอลัมน์ที่สองของช่วง $ B $ 1: $ C $ 50 .

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

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

แสดงรายการชุดข้อมูลหลายชุดรวมกันใน Excel ได้อย่างง่ายดาย

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

วิธีนี้จะแนะนำให้คุณใช้แมโคร VBA เพื่อสร้างหมายเลขลอตเตอรีใน Excel โปรดดำเนินการดังนี้:

1. กด อื่น ๆ + F11 ปุ่มเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2. คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อเปิดหน้าต่างโมดูลใหม่และวางโค้ด VBA ต่อไปนี้ลงใน:

VBA: เครื่องสร้างหมายเลขลอตเตอรีใน Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. กด F5 หรือคลิกปุ่ม วิ่ง เพื่อเรียกใช้แมโคร VBA นี้

4. ตอนนี้ในกล่องโต้ตอบที่โผล่ขึ้นมาให้ระบุเซลล์เพื่อส่งออกหมายเลขลอตเตอรีและคลิกที่ไฟล์ OK ปุ่ม

จากนั้นคุณจะเห็นหมายเลขลอตเตอรีที่ไม่ซ้ำกัน 6 หมายเลขถูกสร้างขึ้นและแสดงในเซลล์ที่ระบุ

หากคุณติดตั้ง Kutools for Excel ไว้แล้วไฟล์ แทรกข้อมูลสุ่ม ยูทิลิตี้สามารถช่วยคุณสร้างหมายเลขลอตเตอรีใน Excel ได้ในครั้งเดียว

1. เลือก 6 เซลล์ที่อยู่ติดกันเช่น A1: F1 จากนั้นคลิกปุ่ม Kutools > สิ่งที่ใส่เข้าไป > แทรกข้อมูลสุ่ม.

2. ตอนนี้กล่องโต้ตอบแทรกข้อมูลสุ่มปรากฏขึ้น ไปที่ไฟล์ จำนวนเต็ม แท็บพิมพ์ 1 in จาก กล่องชนิด 49 in ไปยัง ให้ทำเครื่องหมายที่ ค่าที่ไม่ซ้ำกัน ตัวเลือกและคลิกที่ OK ปุ่ม. ตอนนี้คุณจะเห็นหมายเลขลอตเตอรีที่ไม่ซ้ำกัน 6 หมายเลขถูกสร้างขึ้นและแสดงในเซลล์ที่เลือกทันที

สุ่มเลือกเซลล์ตามเกณฑ์ใน Excel

เพิ่มสีพื้นหลัง / เติมสีสำหรับเซลล์ใน Excel แบบสุ่ม