„Excel“ - ištrinkite tos pačios vertės eilutes

Problema

Man reikia šios problemos sprendimo formulės. Noriu, kad jis surastų panašias ląsteles ir ištrintų tas ląsteles iš darbalapio.

Štai pavyzdys:

 ABCD Sandorio data Sandoris Nuoroda Aprašymas Kiekis 1/25/2010 STD0182 13993 (108.16) 2010.01.25 STD0182 - Glenn D Smith 13933 - 2010 m. I ketvirtis 773 99.00 1/25/2010 STD0182 - Glenn D Smith 13933 - 2010 m. 2010 01 25 STD0268 1974 (423.72) STD0268 - Adv Konsultavimo tarnyba 1974 - Q1-Q4 2010 773 396.00 1/25/2010 STD0268 - Adv Konsultacinė tarnyba 1974 - Q1-Q4 2010 Mokesčiai 773 27.72 1/25 / 2010 STD0431 7206 (108.16) 2010 10 25 STD0431 - Tiesioginiai planai ir kt. 7206 - 2010 m. I ketvirtis 773 99.00 1/25/2010 STD0431 - Tiesioginiai planai ir kt. 7206 - 2010 m. 2010.01.25 STD0690 - Turto planavimas Sol 16670 - 2010 m. I ketvirtis 773 99.00 1/25/2010 STD0690 - Turto planavimas Sol 16670 - 2010 m.

Taigi noriu, kad formulė ieškotų panašių STD # (STD0182 - Transaction Ref) ir ištrintų, jei juose yra tas pats STD #.

Sprendimas

Ne visiškai aišku apie šią dalį "STD0182 - Transaction Ref"

Prielaidos.

1. Jei norite ištrinti eilutę, jei jos B stulpelio vertė yra tokia pati, kaip ir eilutėje esanti vertė

2. Duomenys surūšiuoti pagal B stulpelį

3. B stulpelis Nėra tuščio langelio

 Sub removeDups () Dim myRow kaip ilgas Dim sTRef Kaip String sTRef = Ląstelės (2, 2) myRow = 3 Atlikite (Cells (myRow, 2) "")) Jei (sTRef Cells (myRow, 2)) Tada sTRef = Cells myRow, 2) myRow = myRow + 1 kitos eilutės (myRow) .Pasirinkite pasirinkimą.Pasirinkite pamainą: = xlUp pabaiga Jei kilpos pabaiga