ไปยังเนื้อหาหลัก

วิธีแสดงรายการหรือสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดใน Excel

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

แสดงรายการหรือสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดจากสองรายการด้วยสูตร

แสดงรายการหรือสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดจากสามรายการขึ้นไปด้วยรหัส VBA

แสดงรายการหรือสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดจากหลายรายการพร้อมคุณสมบัติที่มีประสิทธิภาพ

แสดงรายการหรือสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดจากสองรายการด้วยสูตร

สูตรยาวต่อไปนี้สามารถช่วยให้คุณแสดงรายการชุดค่าผสมสองค่าที่เป็นไปได้ทั้งหมดได้อย่างรวดเร็วโปรดทำดังนี้

1. ป้อนหรือคัดลอกสูตรด้านล่างลงในเซลล์ว่างในกรณีนี้ฉันจะใส่ลงในเซลล์ D2 แล้วกด เข้าสู่ กุญแจสำคัญในการรับผลลัพธ์ดูภาพหน้าจอ:

=IF(ROW()-ROW($D$2)+1>COUNTA($A$2:$A$5)*COUNTA($B$2:$B$4),"",INDEX($A$2:$A$5,INT((ROW()-ROW($D$2))/COUNTA($B$2:$B$4)+1))&"-"&INDEX($B$2:$B$4,MOD(ROW()-ROW($D$2),COUNTA($B$2:$B$4))+1))

หมายเหตุ: ในสูตรข้างต้น $ ก $ 2: $ ก $ 5 คือช่วงของค่าคอลัมน์แรกและ $ B $ 2: $ B $ 4 คือช่วงของค่ารายการที่สองที่คุณต้องการแสดงรายการชุดค่าผสมที่เป็นไปได้ทั้งหมด $ D $ 2 คือเซลล์ที่คุณใส่สูตรคุณสามารถเปลี่ยนการอ้างอิงเซลล์ตามความต้องการของคุณ

2. จากนั้นเลือกเซลล์ D2 แล้วลากที่จับเติมลงไปที่เซลล์จนได้เซลล์ว่างและชุดค่าผสมที่เป็นไปได้ทั้งหมดจะแสดงรายการตามค่าสองรายการ ดูภาพหน้าจอ:

แสดงรายการหรือสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดจากสามรายการขึ้นไปด้วยรหัส VBA

บางทีสูตรข้างต้นอาจจะค่อนข้างยากสำหรับคุณที่จะนำไปใช้หากมีข้อมูลหลายคอลัมน์อาจเป็นปัญหาในการแก้ไข ที่นี่ฉันจะแนะนำรหัส VBA เพื่อจัดการกับมันอย่างรวดเร็ว

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

รหัส VBA: สร้างชุดค่าผสมทั้งหมดของ 3 หรือหลายคอลัมน์

Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3 As Range
Dim xRg  As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3 As Integer
Dim xSV1, xSV2, xSV3 As String
Set xDRg1 = Range("A2:A5")  'First column data
Set xDRg2 = Range("B2:B4")  'Second column data
Set xDRg3 = Range("C2:C4")  'Third column data
xStr = "-"   'Separator
Set xRg = Range("E2")  'Output cell
For xFN1 = 1 To xDRg1.Count
    xSV1 = xDRg1.Item(xFN1).Text
    For xFN2 = 1 To xDRg2.Count
        xSV2 = xDRg2.Item(xFN2).Text
      For xFN3 = 1 To xDRg3.Count
        xSV3 = xDRg3.Item(xFN3).Text
        xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
        Set xRg = xRg.Offset(1, 0)
       Next
    Next
Next
End Sub
หมายเหตุ: ในโค้ดด้านบน A2: A5, B2: B4, C2: C4 คือช่วงข้อมูลที่คุณต้องการใช้ E2 คือเซลล์ผลลัพธ์ที่คุณต้องการค้นหาผลลัพธ์ หากคุณต้องการรับชุดค่าผสมทั้งหมดของคอลัมน์เพิ่มเติมโปรดเปลี่ยนและเพิ่มพารามิเตอร์อื่น ๆ ลงในโค้ดตามที่คุณต้องการ

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และชุดค่าผสมทั้งหมดของ 3 คอลัมน์จะถูกสร้างขึ้นพร้อมกันดูภาพหน้าจอ:

แสดงรายการหรือสร้างชุดค่าผสมที่เป็นไปได้ทั้งหมดจากหลายรายการพร้อมคุณสมบัติที่มีประสิทธิภาพ

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

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

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. คลิก Kutools > สิ่งที่ใส่เข้าไป > แสดงรายการชุดค่าผสมทั้งหมดดูภาพหน้าจอ:

2. ใน แสดงรายการชุดค่าผสมทั้งหมด ไดอะล็อกบ็อกซ์ทำการดำเนินการดังตัวอย่างด้านล่างที่แสดง:

3. จากนั้นค่าและตัวคั่นที่ระบุทั้งหมดจะปรากฏในกล่องโต้ตอบดูภาพหน้าจอ:

4แล้วคลิก Ok และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่จะแสดงผลลัพธ์ดูภาพหน้าจอ:

5. คลิก OKชุดค่าผสมที่เป็นไปได้ทั้งหมดตามรายการที่กำหนดได้ถูกสร้างขึ้นในแผ่นงานดังภาพหน้าจอต่อไปนี้:

คลิกเพื่อดาวน์โหลด Kutools for Excel ทันที!

บทความที่เกี่ยวข้องเพิ่มเติม:

  • ค้นหาชุดค่าผสมทั้งหมดที่เท่ากับผลรวมที่กำหนด
  • ตัวอย่างเช่นฉันมีรายการตัวเลขต่อไปนี้และตอนนี้ฉันต้องการทราบว่าชุดค่าผสมของตัวเลขใดในรายการรวมกันได้ถึง 480 ในภาพหน้าจอต่อไปนี้ที่แสดงคุณจะเห็นว่ามีชุดค่าผสมที่เป็นไปได้ห้ากลุ่มที่รวมกันเท่ากัน ถึง 480 เช่น 300 + 60 + 120, 300 + 60 + 40 + 80 เป็นต้นบทความนี้ผมจะพูดถึงวิธีการบางอย่างในการค้นหาว่าเซลล์ใดรวมเป็นค่าเฉพาะใน Excel
  • สร้างหรือแสดงรายการลำดับที่เป็นไปได้ทั้งหมด
  • ตัวอย่างเช่นฉันมีอักขระ XYZ สามตัวตอนนี้ฉันต้องการแสดงรายการการเรียงสับเปลี่ยนที่เป็นไปได้ทั้งหมดตามอักขระสามตัวนี้เพื่อให้ได้ผลลัพธ์ที่แตกต่างกันหกรายการดังนี้: XYZ, XZY, YXZ, YZX, ZXY และ ZYX ใน Excel คุณจะสร้างหรือแสดงรายการการเรียงสับเปลี่ยนทั้งหมดอย่างรวดเร็วตามจำนวนอักขระต่างๆได้อย่างไร
  • สร้างรายการชุดค่าผสม 4 หลักที่เป็นไปได้ทั้งหมด
  • ในบางกรณีเราอาจต้องสร้างรายการตัวเลข 4 หลักที่เป็นไปได้ทั้งหมดของตัวเลข 0 ถึง 9 ซึ่งหมายถึงการสร้างรายการ 0000, 0001, 0002 … 9999 เพื่อแก้ปัญหารายการใน Excel อย่างรวดเร็วฉันขอแนะนำเทคนิคบางอย่างสำหรับคุณ

 

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

 

Comments (42)
Rated 5 out of 5 · 1 ratings
Guilherme Johansson
Guilherme Johansson
This comment was minimized by the moderator on the site
como que poderia gerar uma lista de combinações de nomes no LibreOffice?
Reply
0
0
Rated 5 out of 5
skyyang
skyyang     Guilherme Johansson
This comment was minimized by the moderator on the site
Hello, Johansson

Sorry, the methods in this article are only applied for Microsoft Excel.
Thank you!
Reply
Report
0
0
Nicolaj Ekholm
Nicolaj Ekholm
This comment was minimized by the moderator on the site
Hej alle sammen

Jeg håber at i kan hjælpe med dette.

Jeg har en af de gamle Bastalåse kodelåse med 6 knapper, hvor man kan trykke knapperne ind, lade dem være i neutral eller trække dem ud.

Låsen var åben da jeg købte den, så jeg låste den i håb om at jeg kunne gå kombinationerne igennem.

Men jeg har lidt problemer med at få nedskrevet samtlige kombinationer (729 så vidt jeg kan regne ud).

Er der en der vil hjælpe mig med med dette? Evt. kan man kalde de 3 indstillingsmuligheder pr. knap for: 1-2-3, 1-0-2, eller I-N-U (ind-neutral-ud).


Krydser finger og siger på forhånd mange tak hvis jeg kan få låsen op, det er sådan lidt nostalgi.

Mvh

Nicolaj
Reply
0
0
EDER
EDER
This comment was minimized by the moderator on the site
No 1º Exemplo de captura de tela , está faltando em All combinations Jan - KTE
Reply
0
0
MandyZhou
MandyZhou     EDER
This comment was minimized by the moderator on the site
Hello friend,
How are you. Thank you for your notice. We changed the first ficture. Please check now. Have a nice day.

Sincerely,
Mandy
Reply
Report
0
0
Shahrokh Zadeh
Shahrokh Zadeh
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any of the numbers?
I know there should be 6! = 720 combinations but I need the list.
Thanks
Reply
0
0
Shahrokh Zadeh
Shahrokh Zadeh
This comment was minimized by the moderator on the site
Hi,
I have a project with excel (including Kutools) that I am stuck on.
Can anyone tell me how to get a list of all combinations of 6 different numbers, without repeating any digit?
I know there should be 6! = 720 combinations but I need the list.
Thanks
Reply
0
0
simplest.becky
simplest.becky
This comment was minimized by the moderator on the site
Hello Extend Office,
I want to extend the VBA code in "List Or Generate All Possible Combinations From Three Or More Lists With VBA Code article"
I want to show only the one's whose total of the combinations is equal to 9. Can you please show the additional extension/lines in the code? sorry, I'm barely new in VBA.
For example, I only want to show the combinations like the following:
1-2-2-2-2 (this is equal to 1+2+2+2+2 = 9) so, it will show the ones whose total is 9, the rest won't show.
1-2-3-1-3 (=9)
1-3-2-1-2 (=9) and so on...

Thanks very much for your help
Dalesimplest.becky15.08.21

Reply
Report
0
0
jericho
jericho
This comment was minimized by the moderator on the site
edited formula to randomize 5 columns instead of 3 but still wont work,why?
Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xF5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg2 = Range("D2:D10") 'Fourth column data
Set xDRg3 = Range("E2:E10") 'Fifth column data
xStr = "," 'Separator
Set xRg = Range("G2") 'Output cell
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
For xFN3 = 1 To xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
End Sub
Reply
0
0
skyyang
skyyang     jericho
This comment was minimized by the moderator on the site
Hello, jericho,You should modify your code as below code, please try it, thank you!<div data-tag="code">Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xFN5 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5 As String
Set xDRg1 = Range("A2:A10") 'First column data
Set xDRg2 = Range("B2:B10") 'Second column data
Set xDRg3 = Range("C2:C10") 'Third column data
Set xDRg4 = Range("D2:D10") 'Fourth column data
Set xDRg5 = Range("E2:E10") 'Fifth column data
xStr = "-" 'Separator
Set xRg = Range("H2") 'Output cell
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
For xFN3 = 1 To xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
For xFN4 = 1 To xDRg4.Count
xSV4 = xDRg4.Item(xFN4).Text
For xFN5 = 1 To xDRg5.Count
xSV5 = xDRg5.Item(xFN5).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
Next
Next
End Sub
Reply
Report
0
0
robertsu
robertsu
This comment was minimized by the moderator on the site
How to remove the repetition if I have color 1, color 2, color 3 in different orders(i.e. color2, color 3, color 1) but they are the same for my need? tks!
Reply
Report
0
0
Juan Tomás
Juan Tomás
This comment was minimized by the moderator on the site
Excelentes soluciones, muchas gracias, lo logré con Kutools
Reply
0
0
RAFFAELE
RAFFAELE
This comment was minimized by the moderator on the site
NON FUNZIONA. HO SEGUITO GLI STESSI PASSAGGI MA MI DICE CHE C'E' UN ERRORE
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations