Excel - Izbrišite vrstice z isto vrednostjo

Težava

Potrebujem formulo za rešitev tega problema. Želim, da poišče podobne celice in izbriše te celice iz delovnega lista.

Tukaj je vzorec:

 ABCD Datum transakcije Referenca transakcije Opis Znesek 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 Davek 773 9.16 1/25/2010 STD0268 1974 (423.72) 1/25/2010 STD0268 - Svetovalna služba za svetovanje 1974 - prvo četrtletje 2010 773 396, 00 1/25/2010 STD0268 - Svetovalna služba za svetovanje 1974 - prvo četrtletje 2010 Davek 773 27.72 1/25 / 2010 STD0431 7206 (108.16) 1/25/2010 STD0431 - Samo načrti Etc 7206 - Q1 2010 773 99.00 25.1.2010 STD0431 - Samo načrti Etc 7206 - Q1 2010 Davek 773 9.16 25.1.2010 STD0690 16670 (107.66) 25.5.2010 STD0690 - Načrtovanje premoženja Sol 16670 - Q1 2010 773 99.00 25.1.2010 STD0690 - Načrtovanje premoženja Sol 16670 - Q1 2010 Davek 773 8.66

Zato želim, da formula poišče podobne STD # (STD0182 - Transaction Ref) in izbriše, če vsebujejo isti STD #.

Rešitev

Ni povsem jasno glede tega dela "STD0182 - Transakcija Ref"

Predpostavke.

1. Če želite izbrisati vrstico, če je njena vrednost stolpca B enaka vrednosti v vrstici nad njo

2. Podatki so razvrščeni v stolpcu B

3. Stolpec B Ne vsebuje prazne celice

 Sub removeDups () Dim myRow Kot dolga Dim sTRef Kot String sTRef = Celice (2, 2) myRow = 3 Do While (Celice (myRow, 2) "") Če (sTRef Cells (myRow, 2)) Potem sTRef = Celice myRow, 2) myRow = myRow + 1 Else Rows (myRow) .Select Selection.Delete Shift: = xlUp End Če je Loop End Sub