Excel - Az azonos értékű sorok törlése

Probléma

Szükségem van egy képletre a probléma megoldására. Azt akarom, hogy hasonló cellákat találjon, és törölje azokat a munkalapból.

Itt van egy minta:

 ABCD tranzakció dátuma Tranzakció Referencia Leírás Összeg 2010/01/25 STD0182 13993 (108.16) 2010.01.25. STD0182 - Glenn D Smith 13933 - 2010. I. negyedév 773 99.00 1/25/2010 STD0182 - Glenn D Smith 13933 - 2010. I. negyedév Adó 773 9.16 STD0268 1974 (423.72) 2010/01/25 STD0268 - Adv Tanácsadó Szolgálat 1974 - Q1-Q4 2010 773 396.00 1/25/2010 STD0268 - Adv Tanácsadó Szolgálat 1974 - Q1-Q4 2010 Adó 773 27.72 1/25 / 2010 STD0431 7206 (108.16) 2010.01.25. STD0431 - Just Plans Etc 7206 - 2010. I. negyedév 773 99.00 1/01/2010 STD0431 - Just Plans Etc 7206 - 2010. I. negyedév Adó 773 9.16 1/25/2010 STD0690 16670 (107.66) STD0690 - Eszköztervezés Sol 16670 - Q1 2010 773 99.00 1/25/2010 STD0690 - Eszköztervezés Sol 16670 - 2010. I. negyedév Adó 773 8, 66

Tehát azt akarom, hogy a képlet felkeresse a hasonló STD # -eket (STD0182 - Transaction Ref) és törölje, ha ugyanazt az STD-t tartalmazzák.

Megoldás

Nem teljesen világos ez a rész "STD0182 - Transaction Ref"

Feltételezések.

1. Ha törölni kíván egy sort, ha a B oszlop értéke megegyezik a fölötte lévő sor értékével

2. Az adatokat a B oszlopon rendezzük

3. B oszlop Nem tartalmaz üres cellát

 Sub removeDups () Dim myRow as Long Dim sTRef mint String sTRef = Cells (2, 2) myRow = 3 Végezzen (Cells (myRow, 2) "") Ha (sTRef Cells (myRow, 2)) Ezután sTRef = Cells ( myRow, 2) myRow = myRow + 1 másik sor (myRow) .Válassza ki a kiválasztást. Törlés eltolása: = xlUp vége, ha hurok vége