S temi načini lahko primerjate podatke v dveh stolpcih Delovnega lista Microsoft Excela in poiščete podvojene vnose.
1. način: Uporaba formule delovnega lista
-
Zaženite Excel.
-
Na novem delovnem listu kot primer vnesite te podatke (stolpec B pustite prazen):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
V celico B1 vnesite to formulo:
=IF(ISERROR(MATCH(A1;$C$1:$C$5,0)),"",A1) -
Izberite celico od B1 do B5.
-
V programu Excel 2007 in novejših različicah Excela izberite Zapolni v skupini Urejanje in nato izberite Dol.
Podvojene številke so prikazane v stolpcu B, kot je prikazano v tem primeru:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
2. način: uporaba makra za Visual Basic
Opozorilo: Microsoft ponuja primere programiranja le za ilustracije, brez jamstva, ki ni izraženo ali naznačeno. To vključuje, vendar ni omejeno na naznačena jamstva glede primernosti za prodajo ali primernosti za določen namen. V tem članku je predvideno, da poznate programski jezik, ki je prikazan, in orodja, ki se uporabljajo za ustvarjanje in odpravljanje napak v postopkih. Inženirji Microsoftove podpore vam lahko pomagajo razložiti delovanje določenega postopka. Vendar pa ti primeri ne bodo spremenili tako, da bi zagotovili dodano funkcionalnost ali gradnji postopkov za izpolnjevanje vaših posebnih zahtev.
Če želite uporabiti makro Visual Basic za primerjavo podatkov v dveh stolpcih, upoštevajte navodila v tem primeru:
-
Zaženite Excel.
-
Pritisnite ALT+F11, da zaženete urejevalnik za Visual Basic.
-
V meniju Vstavljanje izberite Modul.
-
Na list modula vnesite to kodo:
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 ALT+F11, da se vrnete v Excel.
-
Kot primer vnesite te podatke (stolpec B pustite prazen):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Izberite celico od A1 do A5.
-
V programu Excel 2007 in novejših različicah Excela izberite zavihek Razvijalec in nato v skupini Koda izberite Makri.
Opomba: Če zavihek Razvijalec ni prikazan, ga boste morda morali vklopiti. To naredite tako, da >Možnosti > prilagodite trak in nato izberete zavihek Razvijalec v polju za prilagajanje na desni strani.
-
Kliknite Find_Matches in nato Zaženi.
Podvojene številke so prikazane v stolpcu B. Ujemajoče se številke bodo vstavljene zraven prvega stolpca, kot je prikazano tukaj:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0