Excel - ลบแถวที่มีค่าเดียวกัน

ปัญหา

ฉันต้องการสูตรเพื่อแก้ปัญหานี้ ฉันต้องการค้นหาเซลล์ที่คล้ายกันและลบเซลล์เหล่านั้นออกจากแผ่นงาน

นี่คือตัวอย่าง:

 ABCD วันที่ทำธุรกรรมการอ้างอิงธุรกรรมคำอธิบายจำนวน 1/25/2010 STD0182 13993 (108.16) 1/25/2010 STD0182 - Glenn D Smith 13933 - Q1 2010 773 99.00 1/25/2010 STD0182 - Glenn D Smith 13933 - Q1 2010 ภาษี 773 9.16 1/25/2010 STD0268 1974 (423.72) 1/25/2010 STD0268 - บริการให้คำปรึกษา 1974 - Q1-Q4 2010 773 396.00 1/25/2010 STD0268 - บริการให้คำปรึกษา 1974 - Q1-Q4 2010 ภาษี 773 27.72 1/25 / 2010 STD0431 7206 (108.16) 1/25/2010 STD0431 - เพียงแค่วางแผน ฯลฯ 7206 - Q1 2010 773 99.00 1/25/2010 STD0431 - เพียงแค่วางแผน ฯลฯ 7206 - Q1 2010 ภาษี 773 9.16 1/25/2010 STD0690 16670 (107.66) 1/25/2010 STD0690 - การวางแผนสินทรัพย์โซล 16670 - Q1 2010 773 99.00 1/25/2010 STD0690 - การวางแผนสินทรัพย์โซล 16670 - Q1 2010 ภาษี 773 8.66

ดังนั้นฉันต้องการสูตรเพื่อค้นหาทั้ง STD # ที่คล้ายกันของ (STD0182 - อ้างอิงธุรกรรม) และลบหากพวกเขามี STD # เดียวกัน

สารละลาย

ไม่ชัดเจนเกี่ยวกับส่วนนี้ "STD0182 - การอ้างอิงธุรกรรม"

สมมติฐาน

1. คุณต้องการลบแถวหากค่าของคอลัมน์ B นั้นเหมือนกับค่าในแถวด้านบน

2. ข้อมูลจะถูกจัดเรียงในคอลัมน์ B

3. คอลัมน์ B ไม่มีเซลล์ว่าง

 Sub removeDups () Dim myRow ตราบเท่าที่ Dim sTRef เป็น String sTRef = เซลล์ (2, 2) myRow = 3 ทำขณะที่ (Cells (myRow, 2) "") ถ้า (sTRef Cells (myRow, 2)) จากนั้น sTRef = Cells ( myRow, 2) myRow = myRow +1 แถวอื่น (myRow) เลือกการเลือกลบ Shift: = xlUp End หาก Loop End Sub