Excel - Smazat řádky se stejnou hodnotou

Problém

Potřebuji vzorec pro vyřešení tohoto problému. Chci, aby našel podobné buňky a odstranil tyto buňky z listu.

Zde je ukázka:

 ABCD Transakční datum Transakce Odkaz Popis Částka 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 - Adv Advisory Service 1974 - Q1-Q4 2010 773 396.00 1/25/2010 STD0268 - Advantage Advisory Service 1974 - Daň za 1. - 4. čtvrtletí 2010 773 27, 72 1/25 / 2010 STD0431 7206 (108.16) 1/25/2010 STD0431 - Pouze Plány Etc 7206 - Q1 2010 773 99.00 1/25/2010 STD0431 - Pouze Plány Et 7206 - Daň Q1 2010 773 9.16 1/25/2010 STD0690 16670 (107.66) 1/25/2010 STD0690 - Plánování majetku Sol 16670 - Q1 2010 773 99, 00 1/25/2010 STD0690 - Plánování majetku Sol 16670 - Q1 2010 Daň 773 8.66

Takže chci, aby vzorec vyhledal buď podobné STD # (STD0182 - Transakce Ref) a smazal, pokud obsahují stejné STD #.

Řešení

Není zcela jasné, o této části "STD0182 - Transakce Ref"

Předpoklady.

1. Chcete-li odstranit řádek, pokud je jeho hodnota sloupce B stejná jako hodnota v řádku nad ním

2. Data jsou seřazeny ve sloupci B

3. Sloupec B Neobsahuje prázdnou buňku

 Sub removeDups () Dim myRow As Long Dim sTRef As String sTRef = Buňky (2, 2) myRow = 3 Do Zatímco (buňky (myRow, 2) "") Pokud (sTRef Cells (myRow, 2)) Pak sTRef = Buňky ( myRow, 2) myRow = myRow + 1 další řádky (myRow) .Vyberte Selection.Delete Shift: = xlUp End If Loop End Sub