วิธีรวมสองรายการโดยไม่ซ้ำกันใน Excel
มีสองรายการในเวิร์กชีตของคุณและบางค่าในรายการเป็นรายการที่ซ้ำกันและคุณต้องการรวมสองรายการนี้และปล่อยค่าที่ไม่ซ้ำกันดังที่แสดงเป็นภาพหน้าจอด้านล่างคุณจะทำอย่างไร?
รวมรายการโดยไม่ซ้ำกับลบรายการที่ซ้ำกันใน Excel
รวมรายการโดยไม่ซ้ำกับ 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