วิธีสร้างรายการค่าที่ไม่ซ้ำกันจากแผ่นงานหลายแผ่นใน Excel

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

สร้างรายการค่าที่ไม่ซ้ำกันจากเวิร์กชีตหลายแผ่น

• ด้วยรหัส VBA
• ด้วย Kutools AI Aide
• พร้อมสูตร (Excel 365)

สร้างรายการค่าที่ไม่ซ้ำกันจากแผ่นงานหลายแผ่นด้วยรหัส VBA

หากต้องการแสดงรายการค่าที่ไม่ซ้ำกันทั้งหมดจากแผ่นงานทั้งหมดรหัส VBA ต่อไปนี้อาจช่วยคุณได้โปรดทำดังนี้:

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

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

รหัส VBA: สร้างรายการค่าที่ไม่ซ้ำกันจากแผ่นงานหลายแผ่น:

Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
    If xObjWS.Name = xStrName Then
        xObjWS.Delete
        Exit For
    End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
    xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xMaxC < xColumn Then
        xMaxC = xColumn
    End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
    xIntN = 1
    For xFNum = 1 To Sheets.Count - 1
        Set xR = Sheets(xFNum).Columns(xColumn)
        If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
            xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
            Cells(xIntN, xColumn).PasteSpecial xlValues
            xIntN = xIntRox + xIntN + 1
        End If
    Next xFNum
    If xIntRox - 1 > 0 Then
    xIntRox = xIntN - 1
    xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range(xStrAddress).Copy
    Cells(1, xColumn + 1).PasteSpecial xlValues
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns(xColumn).Delete
    Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
    End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. หลังจากวางโค้ดด้านบนแล้วกด F5 เพื่อเรียกใช้รหัสนี้และแผ่นงานใหม่ชื่อ ค่าที่ไม่ซ้ำกัน ถูกสร้างขึ้นและชื่อเฉพาะในคอลัมน์ A จากแผ่นงานทั้งหมดจะแสดงเป็นภาพหน้าจอต่อไปนี้:

สร้างรายการค่าที่ไม่ซ้ำกันจากเวิร์กชีตหลายแผ่นด้วย Kutools AI Aide

ในส่วนนี้ เราจะแสดงวิธีการสร้างรายการค่าเฉพาะจากเวิร์กชีตหลายแผ่นได้อย่างง่ายดายโดยใช้ Kutools AI ผู้ช่วย.

คลิก Kutools > เอไอ ผู้ช่วย เพื่อเปิด Kutools AI ผู้ช่วย บานหน้าต่าง ในบานหน้าต่าง กรุณาดำเนินการดังต่อไปนี้:

1. พิมพ์ความต้องการในช่องแชท เช่น:
   แยกค่าที่ไม่ซ้ำกันทั้งหมดในคอลัมน์ A จากเวิร์กชีตทั้งหมดของเวิร์กบุ๊กนี้และแสดงรายการค่าที่ไม่ซ้ำกันในชีตใหม่
2. จากนั้นกด เข้าสู่ หรือคลิกปุ่ม ส่ง ปุ่ม Kutools AI จะวิเคราะห์คำถาม หลังจากเสร็จแล้วกรุณาคลิก ดำเนินงาน ปุ่มแสดงค่าที่ไม่ซ้ำกันทั้งหมดจากหลายแผ่นงานในแผ่นงานใหม่ ดูตัวอย่าง:
   

สร้างรายการค่าที่ไม่ซ้ำกันจากเวิร์กชีตหลายแผ่นด้วยสูตร (Excel 365)

หากคุณต้องการสร้างรายการค่าเฉพาะจากเวิร์กชีตหลายแผ่นใน Excel โดยใช้สูตร คุณสามารถทำได้โดยการรวมฟังก์ชันอาร์เรย์แบบไดนามิก เช่น UNIQUE และ VSTACK ใน Excel 365

กรุณาป้อนสูตรต่อไปนี้ลงในเซลล์ว่าง จากนั้นกด เข้าสู่ คีย์สำหรับแยกค่าที่ไม่ซ้ำกันจากแผ่นงานหลายแผ่นลงในคอลัมน์เดียว ดูภาพหน้าจอ:

=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))

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