Sledeće metode možete da koristite da biste uporedili podatke u dve kolone Microsoft Excel radnog lista i pronašli duplirane stavke.
1. metod: Korišćenje formule radnog lista
-
Pokrenite Excel.
-
U novi radni list unesite sledeće podatke kao primer (ostavite kolonu B praznu):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Otkucajte sledeću formulu u ćeliji B1:
=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1) -
Izaberite ćeliju B1 do B5.
-
U programu Excel 2007 i novijim verzijama programa Excel izaberite stavku Popuni u grupi Uređivanje, a zatim izaberite stavku Nadole.
Duplirani brojevi se prikazuju u koloni B, kao u sledećem primeru:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
2. metod: Korišćenje Visual Basic makroa
Upozorenje: Microsoft pruža primere za programiranje samo za ilustraciju, bez izražene ili podrazumevane garancije. To uključuje, ali nije ograničeno na, podrazumevane garancije za podstiču na raspoređenu robu ili podnožje za određenu svrhu. Ovaj članak pretpostavlja da ste upoznati sa programiranim jezikom koji se prikazuje i sa alatkama koje se koriste za kreiranje i otklanjanje grešaka u procedurama. Inženjeri Microsoft podrške mogu da objasne funkcionalnost određene procedure. Međutim, oni neće izmeniti ove primere da bi obezbedili dodatnu funkcionalnost ili konstruktivne procedure kako bi ispunile vaše određene zahteve.
Da biste koristili Visual Basic makro za poređenje podataka u dve kolone, koristite korake u sledećem primeru:
-
Pokrenite Excel.
-
Pritisnite kombinaciju tastera ALT+F11 da biste pokrenuli Visual Basic editor.
-
U meniju Umetanje izaberite stavku Modul.
-
Unesite sledeći kôd na list sa modulima:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub
-
Pritisnite kombinaciju tastera ALT+F11 da biste se vratili u Excel.
-
Unesite sledeće podatke kao primer (ostavite kolonu B praznu):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Izaberite ćeliju od A1 do A5.
-
U programu Excel 2007 i novijim verzijama programa Excel izaberite karticu Projektovanje, a zatim izaberite stavku Makroi u grupi Kôd.
Napomena: Ako ne vidite karticu Projektovanje , možda ćete morati da je uključite. Da biste to uradili, izaberite stavku Opcije > opcije> Prilagoditraku, a zatim izaberite karticu Projektovanje u polju prilagođavanja sa desne strane.
-
Izaberite Find_Matches stavku Pokreni, a zatim stavku Pokreni.
Duplirani brojevi se prikazuju u koloni B. Podudarni brojevi će biti navedeni pored prve kolone, kao što je ovde ilustrovano:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0