Excel - Slett rader med samme verdi

Utgave

Jeg har behov for en formel for å løse dette problemet. Jeg vil at den skal finne lignende celler og slette disse cellene fra regnearket.

Her er et eksempel:

 ABCD Transaksjonsdato Transaksjonsreferanse Beskrivelse Beløp 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 Skatt 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 Skatt 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 Skatt 773 9.16 1/25/2010 STD0690 16670 (107.66) 1/25/2010 STD0690 - Kapitalforvaltning Sol 16670 - 1. kvartal 2010 773 99.00 1/25/2010 STD0690 - Kapitalforvaltning Sol 16670 - 1. kvartal 2010 Skatt 773 8, 66

Så jeg vil at formelen skal slå opp enten den samme STD # s (STD0182 - Transaction Ref) og å slette hvis de inneholder samme STD #.

Løsning

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

Antagelser.

1. Du vil slette en rad hvis dens kolonne B-verdi er den samme som verdien i raden over den

2. Data er sortert på kolonne B

3. Kolonne B Inneholder ikke tom celle

 Sub removeDups () Dim myRow Så lenge Dim sTRef Som streng sTRef = Cells (2, 2) myRow = 3 Gjør While (Cells (myRow, 2) "") Hvis (sTRef Cells (myRow, 2)) Så sTRef = Cells myRow, 2) myRow = myRow + 1 Else Rows (myRow) .Velg Selection.Delete Shift: = xlUp End Hvis Loop End Sub