Excel - Odstrániť riadky s rovnakou hodnotou

Problém

Potrebujem vzorec na vyriešenie tohto problému. Chcem, aby našiel podobné bunky a vymazal tieto bunky z pracovného hárka.

Tu je ukážka:

 ABCD Dátum transakcie Transakcia Referencia Opis Suma 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 Daň 773 9.16 1/25/2010 STD0268 1974 (423.72) 1/25/2010 STD0268 - Advantage Advisory Service 1974 - Q1-Q4 2010 773 396.00 1/25/2010 STD0268 - Advantage Advisory Service 1974 - Daň za 1. - 4. štvrťrok 2010 773 27.72 1/25 / 2010 STD0431 7206 (108.16) 1/25/2010 STD0431 - Len Plány Etc 7206 - Q1 2010 773 99.00 1/25/2010 STD0431 - Len Plány Etc 7206 - Daň Q1 2010 773 9.16 1/25/2010 STD0690 16670 (107.66) 1/25/2010 STD0690 - Plánovanie majetku Sol 16670 - Q1 2010 773 99.00 1/25/2010 STD0690 - Plánovanie majetku Sol 16670 - Q1 2010 Daň 773 8.66

Takže chcem, aby vzorec hľadal podobnú STD # (STD0182 - Transakcia Ref) a vymazal, ak obsahuje rovnaký STD #.

Riešenie

Nie je úplne jasné o tejto časti "STD0182 - Transakcia Ref"

Predpoklady.

1. Ak chcete odstrániť riadok, ak je jeho hodnota stĺpca B rovnaká ako hodnota v riadku nad ním

2. Údaje sa triedia do stĺpca B

3. Stĺpec B Neobsahuje prázdnu bunku

 Sub removeDups () Dim myRow As Long Dim sTRef As String sTRef = Bunky (2, 2) myRow = 3 Do Kým (bunky (myRow, 2) "") Ak (sTRef Cells (myRow, 2)) Potom sTRef = Bunky ( myRow, 2) myRow = myRow + 1 Ostatné riadky (myRow) .Vyberte Selection.Delete Shift: = xlUp End If Loop End Sub