Excel - Slet rækker med samme værdi

Problem

Jeg har brug for en formel til at løse dette problem. Jeg vil have, at den finder lignende celler og sletter disse celler fra regnearket.

Her er en prøve:

 ABCD Transaktionsdato Transaktionsreference Beskrivelse Beløb 1/25/2010 STD0182 13993 (108.16) 1/25/2010 STD0182 - Glenn D Smith 13933 - 1. kvartal 2010 773 99.00 1/25/2010 STD0182 - Glenn D Smith 13933 - 1. kvartal 2010 Skat 773 9.16 1/25/2010 STD0268 1974 (423.72) 1/25/2010 STD0268 - Adv Advisory Service 1974 - Q1-Q4 2010 773 396.00 1/25/2010 STD0268 - Adv Advisory Service 1974 - Q1-Q4 2010 Skat 773 27.72 1/25 / 2010 STD0431 7206 (108.16) 1/25/2010 STD0431 - Just Plans Etc 7206 - 1. kvartal 2010 773 99.00 1/25/2010 STD0431 - Just Plans Etc 7206 - 1. kvartal 2010 Skat 773 9.16 1/25/2010 STD0690 16670 (107.66) 1/25/2010 STD0690 - Aktieplanlægning Sol 16670 - 1. kvartal 2010 773 99.00 1/25/2010 STD0690 - Aktieplanlægning Sol 16670 - 1. kvartal 2010 Skat 773 8, 66

Så jeg vil at formlen skal slå op enten de samme STD # s (STD0182 - Transaction Ref) og slette, hvis de indeholder samme STD #.

Opløsning

Ikke helt klart om denne del "STD0182 - Transaction Ref"

Antagelser.

1. Du vil slette en række, hvis dens kolonne B værdi er den samme som værdien i rækken over den

2. Data er sorteret på kolonne B

3. Kolonne B Indeholder ikke tom celle

 Sub removeDups () Dim myRow Så lang Dim sTRef Som streng sTRef = Celler (2, 2) myRow = 3 Gør mens (Celler (myRow, 2) "") Hvis (sTRef Celler (myRow, 2)) Så sTRef = Celler myRow, 2) myRow = myRow + 1 Else Rows (myRow) .Vælg Selection.Delete Shift: = xlUp Afslut hvis Loop End Sub