Šiuos būdus galite naudoti norėdami palyginti duomenis dviejuose "Microsoft Excel" darbalapio stulpeliuose ir rasti pasikartojančius įrašus.
1 būdas: Darbalapio formulės naudojimas
-
Paleiskite "Excel".
-
Naujame darbalapyje kaip pavyzdį įveskite šiuos duomenis (palikite B stulpelį tuščią):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Langelyje B1 įveskite šią formulę:
=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1) -
Pažymėkite langelį nuo B1 iki B5.
-
"Excel 2007" ir vėlesnėse "Excel" versijose pasirinkite Užpildyti grupėje Redagavimas, tada pasirinkite Žemyn.
Pasikartojantys skaičiai rodomi stulpelyje B, kaip parodyta toliau pateiktame pavyzdyje:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
2 būdas: Naudokite Visual Basic makrokomandą
Įspėjimas: "Microsoft" pateikia programavimo pavyzdžius tik iliustracijoms, be išreikštos arba numanomos garantijos. Tai apima, bet neapsiriboja, numanomas garantijas dėl tinkamumo parduoti ar tinkamumo konkrečiam tikslui. Šiame straipsnyje daroma prielaida, kad esate susipažinę su programavimo kalba, kuri yra pademonstruojama ir su įrankiais, kurie naudojami kurti ir derinti procedūras. "Microsoft" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcijas. Tačiau jie nekeis šių pavyzdžių, kad suteiktų papildomų funkcinių galimybių arba sukurtų procedūras, atitinkančias jūsų konkrečius reikalavimus.
Norėdami naudoti "Visual Basic" makrokomandą dviejų stulpelių duomenims palyginti, atlikite toliau pateiktame pavyzdyje nurodytus veiksmus:
-
Įjunkite programą „Excel“.
-
Paspauskite ALT + F11, kad paleistumėte "Visual Basic" rengyklę.
-
Meniu Įterpimas pasirinkite Modulis.
-
Modulio lape įveskite šį kodą:
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 -
Paspauskite ALT + F11, kad grįžtumėte į "Excel".
-
Įveskite šiuos duomenis kaip pavyzdį (palikite stulpelį B tuščią):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Pažymėkite langelį nuo A1 iki A5.
-
"Excel 2007" ir vėlesnėse "Excel" versijose pasirinkite skirtuką Programų kūrėjas, tada pasirinkite Makrokomandos grupėje Kodas .
Pastaba: Jei nematote skirtuko Programų kūrėjas , gali tekti jį įjungti. Norėdami tai padaryti, pasirinkite Failo > parinktys > Juostelės tinkinimas, tada pasirinkite skirtuką Programų kūrėjas tinkinimo lauke dešinėje pusėje.
-
Spustelėkite Find_Matches, tada spustelėkite Vykdyti.
Stulpelyje B rodomi skaičių dublikatai. Sutampantys skaičiai bus įrašyti šalia pirmo stulpelio, kaip parodyta čia:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
