Kahes Microsoft Exceli töölehe veerus olevate andmete võrdlemiseks ja duplikaatkirjete otsimiseks saate kasutada järgmisi meetodeid.
1. meetod: töölehevalemi kasutamine
-
Käivitage Excel.
-
Sisestage uuele töölehele näitena järgmised andmed (jätke veerg B tühjaks):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Tippige lahtrisse B1 järgmine valem: =IF(ISERROR(MATCH(A1;$C$1:$C$5;0)),"";A1)
-
Valige lahter B1 kuni B5.
-
Valige jaotises Redigeeriminekäsk Täida ja seejärel valige Alla.Duplikaatnumbrid kuvatakse veerus B, nagu järgmises näites.
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
2. meetod: Visual Basicu makro kasutamine
Hoiatus.: Microsoft pakub programmeerimise näiteid ainult illustreerimiseks, ilma et garantii oleks väljendatud või kaudselt. See hõlmab kaubastatavuse või kindlaks otstarbeks sobivuse kaudseid garantiisid, kuid mitte ainult. Selles artiklis eeldatakse, et olete tuttav kuvatava programmeerimiskeelega ja tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugiteenuste insenerid saavad aidata selgitada konkreetse toimingu funktsionaalsust. Kuid need näited ei muuda neid näiteid, et pakkuda teie vajadustele vastavaid lisafunktsioone või koostada protseduure.
Visual Basicu makro kasutamiseks kahe veeru andmete võrdlemiseks järgige järgmises näites toodud juhiseid.
-
Käivitage Excel.
-
Visual Basicu redaktori käivitamiseks vajutage klahvikombinatsiooni ALT+F11.
-
Valige menüüs Lisa nupp Moodul.
-
Sisestage moodulilehele järgmine kood:
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 -
Excelisse naasmiseks vajutage klahvikombinatsiooni ALT+F11.
-
Sisestage näitena järgmised andmed (jätke veerg B tühjaks):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Valige lahter A1 kuni A5.
-
Valige menüü Arendaja ja seejärel valige jaotises Kood nupp Makrod.
Märkus.: Kui menüüd Arendaja ei kuvata, peate selle võib-olla sisse lülitama. Selleks valige menüü Fail > Suvandid > Lindi kohandamine ja seejärel valige paremas servas asuval kohandamise väljal menüü Arendaja .
-
Klõpsake nuppu Find_Matches ja seejärel käsku Käivita.Duplikaatnumbrid kuvatakse veerus B. Vastavad arvud paigutatakse esimese veeru kõrvale, nagu siin näidatud.
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
