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

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

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2024-11-13

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

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

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


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

สูตรอาร์เรย์ต่อไปนี้สามารถช่วยให้คุณบรรลุงานนี้ โปรดทำทีละขั้นตอน:

1. ขั้นแรก คุณควรสร้างเซลล์สูตรผู้ช่วยสองเซลล์ ในเซลล์ C1 โปรดป้อนสูตรด้านล่างแล้วกด Ctrl + Shift + Enter คีย์เพื่อให้ได้ผลลัพธ์:

=MAX(LEN(A2:A6))
หมายเหตุ: ในสูตรนี้ A2: A6 คือรายการเซลล์ที่คุณต้องการแสดงรายการชุดค่าผสม

สร้างสูตรตัวช่วยแรก

2. ในเซลล์ C2 ให้ป้อนสูตรต่อไปนี้ แล้วกด Ctrl + Shift + Enter คีย์ร่วมกันเพื่อให้ได้ผลลัพธ์ที่สอง ดูภาพหน้าจอ:

=CONCAT(A2:A6&REPT(" ",C2-LEN(A2:A6)))
หมายเหตุ: ในสูตรนี้ A2: A6 คือรายการเซลล์ที่คุณต้องการแสดงรายการชุดค่าผสม C2 คือเซลล์มีสูตรที่คุณสร้างในขั้นตอนที่ 1

สร้างสูตรตัวช่วยที่สอง

3. จากนั้นคัดลอกและวางสูตรต่อไปนี้ในเซลล์ D2 แล้วกด Ctrl + Shift + Enter คีย์เข้าด้วยกันเพื่อให้ได้ผลลัพธ์แรกดูภาพหน้าจอ:

=IF(ROW()>2^(COUNTA(A$2:A$6)),"",TEXTJOIN(" + ",TRUE,IF(MID(TEXT(DEC2BIN(ROW()-1),REPT("0",COUNTA($A$2:$A$6))),ROW(INDIRECT("1:"&COUNTA($A$2:$A$6))),1)+0,TRIM(MID($C$3,(ROW(INDIRECT("1:"&COUNTA($A$2:$A$6)))-1)*$C$2+1,$C$2)),"")))
หมายเหตุ: ในสูตรนี้ A2: A6 คือรายการเซลล์ที่คุณต้องการแสดงรายการชุดค่าผสม C2 คือเซลล์มีสูตรที่คุณสร้างในขั้นตอนที่ 1 C3 คือเซลล์ที่มีสูตรที่คุณสร้างในขั้นตอนที่ 2 + ตัวละครเป็นตัวคั่นเพื่อแยกชุดค่าผสม คุณสามารถเปลี่ยนได้ตามต้องการ

ป้อนสูตร

4. จากนั้นเลือกเซลล์สูตรนี้ แล้วลากที่จับเติมลงไปจนกว่าเซลล์ว่างจะปรากฏขึ้น ตอนนี้ คุณสามารถดูชุดข้อมูลคอลัมน์ที่ระบุทั้งหมดจะแสดงดังที่แสดงด้านล่าง:

หมายเหตุ: สูตรนี้มีเฉพาะใน Office 2019, 365 และเวอร์ชันที่ใหม่กว่า
ภาพหน้าจอของ kutools สำหรับ excel ai

ปลดล็อก Excel Magic ด้วย Kutools AI

  • การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
  • สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
  • การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
  • การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
  • การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ
ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

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

สูตรข้างต้นใช้ได้เฉพาะกับ Excel เวอร์ชันใหม่เท่านั้น หากคุณมี Excel เวอร์ชันก่อนหน้า โค้ด VBA ต่อไปนี้สามารถช่วยคุณได้

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

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

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

Sub ConnectArr()
'Updateby ExtendOffice
Dim xDValue As Variant
Dim xOutRg As Range
Dim xDictionary As Object
Dim xF As Long
Dim xChar As String
xDValue = Range("A2:A6").Value 'the data range
Set xOutRg = Range("C1") 'output range
xChar = "," 'separator
For xF = 1 To UBound(xDValue)
    Set xDictionary = CreateObject("Scripting.Dictionary")
    xDictionary(0) = "Sets of " & xF
    Call ConnectValue(xDValue, xDictionary, 0, xF, 0, "", xChar)
    xOutRg.Offset(0, xF - 1).Resize(xDictionary.Count).Value = WorksheetFunction.Transpose(xDictionary.Items)
    Set xDictionary = Nothing
Next
End Sub
Sub ConnectValue(ByRef pDValue, ByRef pDictionary, ByRef pLevel, ByVal pMaxLevel, ByVal pIndex, ByVal pValue, ByVal pChar)
Dim xF As Long
If pLevel = pMaxLevel Then
    pDictionary(pDictionary.Count + 1) = pValue
    Exit Sub
End If
For xF = pIndex + 1 To UBound(pDValue)
    If pValue = "" Then
        Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pDValue(xF, 1), pChar)
    Else
        Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pValue & pChar & pDValue(xF, 1), pChar)
    End If
Next
End Sub
หมายเหตุ: ในโค้ดด้านบน:
  • A2: A6: เป็นรายการข้อมูลที่คุณต้องการใช้
  • C1: คือเซลล์เอาต์พุต
  • ,: ตัวคั่นเพื่อแยกชุดค่าผสม

3. แล้วกด F5 คีย์เพื่อรันโค้ดนี้ ชุดค่าผสมทั้งหมดจากคอลัมน์เดียวแสดงไว้ด้านล่างภาพหน้าจอที่แสดง:

รหัส VBA เพื่อรับการรวมกันทั้งหมดจากคอลัมน์เดียว

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

🤖 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% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!