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

วิธีลบค่าที่ไม่ซ้ำกันจากคอลัมน์ใน Excel

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

ลบค่า unqiue ด้วย VBA ใน Excel

ลบค่า unqiue ด้วย Kutools for Excel


ลูกศรสีฟ้าฟองขวา ลบค่า unqiue ด้วย VBA ใน Excel

การใช้ VBA สามารถลบค่าที่ไม่ซ้ำกันทั้งหมดจากคอลัมน์เดียวได้อย่างรวดเร็ว

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

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

VBA: ลบค่าที่ไม่ซ้ำกันออกจากคอลัมน์

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
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)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub
3 คลิก วิ่ง เพื่อเรียกใช้รหัส VBA และปุ่ม KutoolsforExcel กล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกช่วงที่จะทำงาน ดูภาพหน้าจอ:

 

doc-ลบ-ไม่ซ้ำกัน-1

4 คลิก OKและค่าที่ไม่ซ้ำกันทั้งหมดจะถูกลบ


ลูกศรสีฟ้าฟองขวา ลบค่า unqiue ด้วย Kutools for Excel

หากคุณไม่คุ้นเคยกับ VBA คุณสามารถพิจารณาใช้ Kutools สำหรับ Excel's Select Duplicate & Unique Cells เพื่อลบค่าที่ไม่ซ้ำกันใน Excel

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

1. เลือกคอลัมน์ที่คุณต้องการลบค่าเฉพาะจากนั้นคลิก Kutools > เลือกเครื่องมือ > เลือกเซลล์ซ้ำและไม่ซ้ำกัน. ดูภาพหน้าจอ:

doc-ลบ-ไม่ซ้ำกัน-2

2. ในกล่องโต้ตอบป๊อปอัปให้เลือก ค่าเฉพาะเท่านั้น และคลิก Okแล้วออกจากกล่องโต้ตอบนี้ ดูภาพหน้าจอ:

doc-ลบ-ไม่ซ้ำกัน-3

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

doc-ลบ-ไม่ซ้ำกัน-4

4 ใน ลบ กล่องโต้ตอบตรวจสอบทั้งแถวแล้วคลิก OK. ดูภาพหน้าจอ:

doc-ลบ-ไม่ซ้ำกัน-5

ตอนนี้คุณสามารถเห็นค่าที่ไม่ซ้ำกันถูกลบออก

doc-ลบ-ไม่ซ้ำกัน-6 doc- ลูกศร doc-ลบ-ไม่ซ้ำกัน-7

ปลาย: หากคุณต้องการลบเนื้อหาของเซลล์คุณสามารถคลิก ล้างเนื้อหา จากเมนูบริบทในขั้นตอนที่ 3

คุณสามารถคลิกที่นี่เพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับ Select Duplicate & Unique Cells


บทความญาติ:

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

คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

kte แท็บ 201905


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It works great! Thanks!Only issue is it doesn't extend the selection to delete the whole row. But it works. Thanks.
This comment was minimized by the moderator on the site
VBA code does not work....I use option explicit and while I Dim xValue as Variant, keeps saying variable not defined. I'd say a good 80% of copied code from net does not work at first shot.
This comment was minimized by the moderator on the site
You are a life saver. God bless you
This comment was minimized by the moderator on the site
How would one tweak the VBA code to delete the entire row based on unique value of one field only? The Kutools for Excel allow deletion of the entire row, but the code deletes only the unique values from one field. Thank you,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations