Excel - Brisanje redaka s istom vrijednošću

Problem

Potrebna mi je formula za rješavanje ovog problema. Želim da pronađe slične ćelije i izbriše te ćelije s radnog lista.

Evo primjera:

 ABCD Datum transakcije Referenca transakcije Opis Iznos 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 Porez 773 9.16 1/25/2010 STD0268 1974 (423, 72) 1/25/2010 STD0268 - Savjetodavna služba za savjetovanje 1974. - 1. tromjesečje 2010. 773 396.00 1/25/2010 STD0268 - Savjetodavna služba za savjetovanje 1974. - 1. tromjesečje 2010. Porez 773 27.72 1/25 / 2010 STD0431 7206 (108.16) 1/25/2010 STD0431 - pravedni planovi itd. 7206 - Q1 2010 773 99, 00 1/25/2010 STD0431 - pravedni planovi itd. 7206 - Q1 2010 Porez 773 9, 16 1/25/2010 STD0690 16670 (107, 66) 1/25/2010 STD0690 - Planiranje imovine Sol 16670 - Q1 2010 773 99.00 1/25/2010 STD0690 - Planiranje imovine Sol 16670 - Q1 2010 Porez 773 8.66

Zato želim da formula pogleda ili sličnu STD # (STD0182 - Transakcija Ref) i da izbriše ako sadrži isti STD #.

Riješenje

Nije posve jasno o ovom dijelu "STD0182 - Ref. Transakcije"

Pretpostavke.

1. Želite izbrisati redak ako je njegova vrijednost stupca B jednaka vrijednosti u retku iznad nje

2. Podaci su razvrstani u stupac B

3. Stupac B Ne sadrži praznu ćeliju

 Sub removeDups () Dim myRow As Long Dim sTRef As String sTRef = Ćelije (2, 2) myRow = 3 Do (Cells (myRow, 2) "") Ako (sTRef Cells (myRow, 2)) Tada sTRef = Ćelije ( myRow, 2) myRow = myRow + 1 Else Rows (myRow) .Select Selection.Delete Shift: = xlUp End Ako je Loop End Sub