Prijavite se pomoću Microsofta
Prijavi se ili izradi račun.
Zdravo,
Odaberite drugi račun.
Imate više računa
Odaberite račun putem kojeg se želite prijaviti.

Pomoću sljedećih metoda možete usporediti podatke u dva stupca radnog lista programa Microsoft Excel i pronaći duplicirane unose. 

1. način: korištenje formule radnog lista

  1. Pokrenite Excel.

  2. Na novi radni list unesite sljedeće podatke kao primjer (ostavite stupac B praznim):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. U ćeliju B1 upišite sljedeću formulu:

    =IF(ISERROR(MATCH(A1;$C$1:$C$5;0));"";A1)

  4. Odaberite ćeliju od B1 do B5.

  5. U programu Excel 2007 i novijim verzijama programa Excel odaberite Ispuni ugrupi Uređivanje, a zatim odaberite Dolje.

    Duplicirani brojevi prikazuju se u stupcu B, kao u sljedećem primjeru: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Drugi način: korištenje makronaredbe programa Visual Basic

Upozorenje: Microsoft nudi primjere programiranja samo za ilustraciju, bez jamstva izraženog ili impliciranog. To uključuje, ali nije ograničeno na, implicirana jamstva prikladnosti ili prikladnosti za određenu svrhu. U ovom se članku pretpostavlja da ste upoznati s programskim jezikom koji se prikazuje i alatima koji se koriste za stvaranje i ispravljanje pogrešaka. Inženjeri Microsoftove podrške mogu objasniti funkcionalnost određenog postupka. Međutim, oni neće izmijeniti te primjere da bi pružili dodatne funkcije ili konstruirali postupke kako bi ispunjavali vaše specifične zahtjeve.

Da biste pomoću makronaredbe programa Visual Basic usporedili podatke u dva stupca, slijedite korake u sljedećem primjeru:

  1. Pokrenite Excel.

  2. Pritisnite ALT + F11 da biste pokrenuli uređivač programa Visual Basic.

  3. Na izborniku Umetanje odaberite Modul.

  4. Na list modula unesite sljedeći 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
  5. Pritisnite ALT + F11 da biste se vratili u Excel.

    1. Unesite sljedeće podatke kao primjer (ostavite stupac B praznim):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Odaberite ćeliju od A1 do A5.

  7. U programu Excel 2007 i novijim verzijama programa Excel odaberite karticu Programiranje, a zatim Makronaredbe u grupi Kod.

    Napomena: Ako ne vidite karticu Programiranje , možda ćete je morati uključiti. Da biste to učinili, odaberite Mogućnosti > datoteka > Prilagodba vrpce, a zatim odaberite karticu Programiranje u okviru za prilagodbu na desnoj strani.

  8. Kliknite Find_Matches, a zatim Pokreni.

    Duplicirani brojevi prikazuju se u stupcu B. Podudarni brojevi bit će pored prvog stupca, kao što je prikazano ovdje:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.

Jesu li vam ove informacije bile korisne?

Koliko ste zadovoljni jezičnom kvalitetom?
Što je utjecalo na vaše iskustvo?
Ako pritisnete Pošalji, vaše će se povratne informacije iskoristiti za poboljšanje Microsoftovih proizvoda i usluga. Vaš će IT administrator moći prikupiti te podatke. Izjava o zaštiti privatnosti.

Hvala vam na povratnim informacijama!

×