จะลบแถวที่ไม่ตรงกับเกณฑ์ในแผ่นงานอื่นได้อย่างไร?

อาจไม่ใช่เรื่องยากสำหรับคุณในการลบแถวที่ไม่ตรงกับเกณฑ์ในแผ่นงานเดียวกัน แต่คุณรู้วิธีใดในการลบแถวที่ไม่ตรงกับเกณฑ์บนแผ่นงานอื่นดังที่แสดงด้านล่าง ตอนนี้ฉันมีสองเทคนิคที่สามารถช่วยคุณแก้ปัญหาได้อย่างรวดเร็ว

ลบแถวที่ไม่ตรงกับเกณฑ์บนแผ่นงานอื่นด้วย VBA

ลบแถวที่ไม่ตรงกับเกณฑ์บนแผ่นงานอื่นด้วย Kutools for Excel

เกณฑ์ (ในแผ่นงาน 2)	ก่อนหน้า (แผ่นที่ 1)		หลัง (Sheet1)

---

ลบแถวที่ไม่ตรงกับเกณฑ์บนแผ่นงานอื่นด้วย VBA

มีรหัส VBA สามารถช่วยคุณลบแถวที่ไม่ตรงกับเกณฑ์บนแผ่นงานอื่นได้

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

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

VBA: ลบแถวที่ไม่ตรงกับเกณฑ์บนแผ่นงานอื่นใน Excel

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub

3 คลิก วิ่งที่ KutoolsforExcel กล่องโต้ตอบจะปรากฏขึ้นเพื่อให้คุณเลือกช่วงที่คุณต้องการลบแถวที่ไม่ตรงกับเกณฑ์ ดูภาพหน้าจอ:

4 คลิก OKและอีกกล่องโต้ตอบจะปรากฏขึ้นเพื่อเลือกเกณฑ์ในแผ่นงานอื่นดูภาพหน้าจอ:

5. ตอนนี้แถวทั้งหมดที่ไม่ตรงกับเกณฑ์ในแผ่นงานอื่นจะถูกลบออก

---

ลบแถวที่ไม่ตรงกับเกณฑ์บนแผ่นงานอื่นด้วย Kutools for Excel

ถ้ารหัส VBA นั้นยากสำหรับคุณเล็กน้อยคุณสามารถลองใช้ Kutools สำหรับ Excel ของคุณลักษณะเปรียบเทียบช่วง

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

1. เลือกแผ่นงานที่คุณต้องการลบแถวที่ไม่ตรงกับเกณฑ์ แล้วคลิก Kutools > เปรียบเทียบช่วง. ดูภาพหน้าจอ:

2 ใน เปรียบเทียบช่วง คลิกปุ่มในไฟล์ ช่วง Bจากนั้นคุณสามารถเลือกช่วงเกณฑ์ที่คุณต้องการได้ ดูภาพหน้าจอ:

 

3 จากนั้นคลิก OKจากนั้นกลับไปที่ไฟล์ เปรียบเทียบช่วง โต้ตอบตรวจสอบ มูลค่าที่แตกต่างกัน และ เลือกทั้งแถว. ดูภาพหน้าจอ:

4 คลิก Okและออกจากไฟล์ เปรียบเทียบช่วง ไดอะล็อก จากนั้นคุณจะเห็นแถวค่าที่แตกต่างจากเกณฑ์ถูกเลือก

5. คลิกขวาเพื่อคลิก ลบ จากเมนูบริบทเพื่อลบแถวที่ไม่ตรงกับเกณฑ์บนแผ่นงานอื่น

คลิกที่นี่เพื่อดูข้อมูลเพิ่มเติมเกี่ยวกับ Kutools for Excel's Compare Ranges

---

บทความญาติ:

• ลบแถวที่ไม่มีข้อความบางอย่างใน Excel