Excel - salīdziniet divas kolonnas un dzēsiet dublikātus

Matemātiskās vai loģiskās operācijas nevar veikt manuāli Excel darblapās, kurās ir liels datu apjoms, jo tas aizņemtu pārāk ilgu laiku. Bet Excel ir efektīva biroja programmatūras programma, kas ļauj automātiski apstrādāt datus, izmantojot makro vai VBA programmas kodu. Lai salīdzinātu divas kolonnas un izdzēstu dublikātus programmā Excel, makro var rakstīt, lai loģiski vai matemātiski salīdzinātu kolonnas un noņemiet rindas, kurās ir dublēti dati. Labi uzrakstīts Excel makro var ātri un precīzi izpildīt uzdevumu. Ir viegli salīdzināt divas kolonnas un izdzēst dublikātus programmā Excel.

Izdevums
Risinājums
Piezīme

Izdevums

Man ir nepieciešama makro Excel izklājlapai, kas salīdzinās līnijas, kas balstītas uz divām šūnām, un atrast visus dublikātus.

Šajā piemērā pirmās divas ailes - A un B - ir tās, kam jābūt unikālām. Makro drīkst atzīmēt tikai tās rindas, kas ir ideāli piemērotas abās kolonnās. Tātad šajā piemērā ir jānorāda tikai piektā rinda, jo tā ir precīza atbilstība iepriekš minētajai.

Piemērs:

 Col A Col B Col C Col D 00001 AAAA1 xxxx yyyy 00001 BBBB1 xxxx xxxx 00001 BBBB2 gggg gggg 00002 AAAA1 gggg xxxx 00002 AAAA1 gggg xxxx 00003 AAAA1 xxxx gggg

Risinājums

Šis risinājums mainīs izklājlapas datus, tāpēc pārliecinieties, ka esat saglabājis rezerves kopiju.

Pirmkārt, jums ir jāapvieno A un B slejas dati, lai tos varētu salīdzināt kopumā. Lai to izdarītu, ierakstiet tukšu šūnu pirmās datu rindas beigās (šajā piemērā izmantojam 2. rindu - mainiet pēc vajadzības):

 = A2 un B2

Kopējiet šo formulu visai izklājlapai.

Tagad palaidiet makro zemāk. Šajā izlases kodā tiek pieņemts, ka iepriekš minētais formulējums ir uzrakstīts E slejā. Nepieciešamības gadījumā groziet kodu.

Brīdinājums: šī makro izdzēsīs rindas, tāpēc ir svarīgi pārliecināties, vai pirms tā pārbaudes ir veikta kopija.

 Sub teksts () Dim j Kā Integer, k Kā Integer, r Kā diapazons j = Range ("E2"). Beigas (xlDown) .Row For k = j Uz 2 Step -1 MsgBox k Iestatiet r = Range (Cells (k, "E"), šūnas (k, "E"). Beigas (xlUp) Ja WorksheetFunction.CountIf (r, šūnas (k, "E"))> 1 Tad šūnas (k, "E"). Dzēst beigas Ja nākamais k Beigas beigas