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

วิธีรวมสองรายการโดยไม่ซ้ำกันใน Excel

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

รวมรายการโดยไม่ซ้ำกับลบรายการที่ซ้ำกันใน Excel

รวมรายการโดยไม่ซ้ำกับ VBA

รวมรายการโดยไม่ซ้ำกับ Kutools for Excel


ลูกศรสีฟ้าฟองขวา รวมรายการโดยไม่ซ้ำกับลบรายการที่ซ้ำกันใน Excel

ในการรวมสองรายการและลบค่าที่ซ้ำกันใน Excel คุณสามารถทำได้ดังนี้:

1. คัดลอกหนึ่งในสองรายการและวางที่ด้านล่างของรายการอื่นดูภาพหน้าจอ:

2. เลือกรายการและคลิก ข้อมูล > ลบรายการที่ซ้ำกันดูภาพหน้าจอ:


3 ใน ลบรายการที่ซ้ำกัน กล่องโต้ตอบหากคอลัมน์ของคุณไม่มีส่วนหัวให้ยกเลิกการเลือก ข้อมูลของฉันมีส่วนหัวและจากนั้นคลิก OK. ดูภาพหน้าจอ:


4. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นบนหน้าจอเพื่อแจ้งให้คุณทราบว่ารายการที่ซ้ำกันถูกลบไปแล้วให้คลิก OK. ดูภาพหน้าจอ:


คุณสามารถเห็นผลลัพธ์:



ลูกศรสีฟ้าฟองขวา รวมรายการโดยไม่ซ้ำกับ VBA

ใน Excel VBA ยังสามารถช่วยคุณรวมสองรายการโดยไม่ซ้ำกัน

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

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

VBA: รวมรายการโดยไม่ซ้ำกัน

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

 

3 คลิก วิ่ง หรือกด F5 เพื่อเรียกใช้ VBA

4. กล่องโต้ตอบที่แสดงบนหน้าจอและคุณสามารถเลือกช่วงที่คุณต้องการรวมได้ ดูภาพหน้าจอ:


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


6 คลิก OK. คุณสามารถดูรายการที่รวมกันได้


เคล็ดลับ: ผลลัพธ์ไม่สามารถสงวนการจัดรูปแบบเซลล์หลังจากเรียกใช้ VBA ข้างต้น


ลูกศรสีฟ้าฟองขวา รวมรายการโดยไม่ซ้ำกับ Kutools for Excel

พร้อมติดตั้ง Kutools สำหรับ Excelคุณสามารถใช้ เลือกรายการที่ซ้ำกันและเซลล์ที่ไม่ซ้ำกัน เพื่อแก้ปัญหาที่รวมสองรายการโดยไม่ซ้ำกัน

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now

1. คัดลอกหนึ่งในสองรายการและวางที่ด้านล่างของรายการอื่นเลือกรายการใหม่จากนั้นคลิก Kutools > เลือกเครื่องมือ > เลือกรายการที่ซ้ำกันและเซลล์ที่ไม่ซ้ำกัน. ดูภาพหน้าจอ:


2 ใน เลือกรายการที่ซ้ำกันและเซลล์ที่ไม่ซ้ำกัน โต้ตอบตรวจสอบ ที่ไม่ซ้ำทั้งหมด (รวมถึงรายการที่ซ้ำกันครั้งแรก)คลิก Ok.


3. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อบอกจำนวนค่าที่ไม่ซ้ำกันให้คลิก OK และ ยกเลิก เพื่อปิดสองกล่องโต้ตอบ ดูภาพหน้าจอ:


4. และคัดลอกค่าเฉพาะที่เลือกแล้ววางลงในคอลัมน์ใหม่ ดูภาพหน้าจอ:


คลิกที่นี่เพื่อเรียนรู้เพิ่มเติมเกี่ยวกับ Select duplicates & unique cells


บทความญาติ:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations