วิธีลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกไว้ใน Excel
สมมติว่ามีรายการค่าในแผ่นงานของคุณซึ่งมีรายการที่ซ้ำกันบางรายการตอนนี้คุณต้องลบรายการที่ซ้ำกันออก แต่เก็บแถวแรกที่พบค่าที่ซ้ำกัน ในบทความนี้เราจะแสดงวิธีลบรายการที่ซ้ำกันสองวิธี แต่เก็บอินสแตนซ์แรกไว้ใน Excel
ลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกด้วยรหัส VBA
ลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกด้วย Kutools for Excel
ลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกด้วยรหัส VBA
คุณสามารถเรียกใช้โค้ด VBA ด้านล่างเพื่อลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกไว้ในคอลัมน์
1 กด อื่น ๆ + F11 เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน กล่องโต้ตอบ
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน คลิกตกลง สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ดด้านล่างลงในหน้าต่างรหัส
รหัส VBA: ลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกไว้
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการโผล่ขึ้นมา KutoolsforExcel กล่องโต้ตอบเลือกช่วงที่คุณต้องการลบรายการที่ซ้ำกันจากนั้นคลิกไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:
ตอนนี้คุณสามารถเห็นแถวที่ซ้ำกันทั้งหมดยกเว้นระเบียนแรกจะถูกลบออกจากช่วงคอลัมน์ที่เลือก ดูภาพหน้าจอ:
ลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกด้วย Kutools for Excel
ข้างรหัส VBA คุณสามารถใช้ไฟล์ เลือกเซลล์ซ้ำและไม่ซ้ำกัน ประโยชน์ของ Kutools สำหรับ Excel Add-in เพื่อลบรายการที่ซ้ำกันได้อย่างง่ายดาย แต่เก็บอินสแตนซ์แรกไว้ใน Excel
ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.
1. เลือกช่วงที่คุณต้องการลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกไว้ จากนั้นคลิก Kutools > เลือก > เลือกเซลล์ซ้ำและไม่ซ้ำกัน.
2 ใน เลือกเซลล์ซ้ำและไม่ซ้ำกัน กล่องโต้ตอบเลือกไฟล์ รายการที่ซ้ำกัน (ยกเว้นรายการที่ 1) จากนั้นคลิกตัวเลือก OK ปุ่ม. ดูภาพหน้าจอ:
3. ดังต่อไปนี้ เลือกเซลล์ซ้ำและไม่ซ้ำกัน คลิกตกลง OK.
4. ตอนนี้รายการที่ซ้ำกันถูกเลือกยกเว้นอินสแตนซ์แรกโปรดกดปุ่ม ลบ คีย์เพื่อลบรายการที่ซ้ำกันที่เลือก
หมายเหตุ: หากคุณต้องการลบแถวที่ซ้ำกันคุณเพียงแค่ต้องตรวจสอบ เลือกทั้งแถว ตัวเลือกใน เลือกเซลล์ซ้ำและไม่ซ้ำกัน กล่องโต้ตอบแล้วใช้ ลบ คำสั่งของเมนูคลิกขวาเพื่อลบแถวที่ซ้ำกันทั้งหมด
หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น
ลบรายการที่ซ้ำกัน แต่เก็บอินสแตนซ์แรกด้วย Kutools for Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
