ID članka: 213367 - Pregledajte proizvode na koje se odnosi ovaj članak.
Proširi sve | Sažmi sve

Na ovoj stranici

Sažetak

U ovom se članku opisuju dvije metode usporedbe podataka u dva radna lista programa Microsoft Excel i pronalaženja dvostrukih unosa.

Dodatne informacije

Prva metoda: Upotreba formule radnog lista

Da biste podatke u dva stupca usporedili pomoću formule radnog lista, slijedite ove korake:
  1. Pokrenite Excel.
  2. U novom radnom listu unesite sljedeće podatke (stupac B ostavite praznim):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 5   B5:     C5: 0
    					
  3. Unesite sljedeću formulu u ćeliju B1:
    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
  4. Odaberite ćelije B1:B5.
  5. U programu Microsoft Office Excel 2003 i u starijim verzijama programa Excel na izborniku Edit (Uređivanje) pokažite na Fill (Ispune), a zatim kliknite Down (Dolje).

    U programu Microsoft Office Excel 2007 kliknite Ispuna u grupi Uređivanje, a zatim kliknite Dolje.

    U stupcu B prikazuju se udvostručeni brojevi, kao u sljedećem primjeru:
       A1: 1   B1:     C1: 3
       A2: 2   B2: 2   C2: 5
       A3: 3   B3: 3   C3: 8
       A4: 4   B4:     C4: 2
       A5: 5   B5: 5   C5: 0
    					

Druga metoda: Upotreba Visual Basic makronaredbe

Microsoft navodi primjere programiranja samo radi ilustracije, bez jamstva, bilo izričitog, bilo impliciranog. To obuhvaća, bez ograničenja, posredna jamstva glede tržišne kurentnosti ili prikladnosti za određenu svrhu. U ovom se članku podrazumijeva da poznajete programski jezik koji se koristi u primjeru i alate koji se koriste za stvaranje i ispravljanje pogrešaka u postupcima. Microsoftovi inženjeri za podršku mogu objasniti funkciju određenog postupka. Neće, međutim, mijenjati te primjere da bi ponudili dodatne funkcije niti prilagođavati postupke vašim potrebama. Da biste usporedili podatke u dva stupca pomoću Visual Basic makronaredbe, koristite korake iz sljedećeg primjera:
  1. Pokrenite Excel.
  2. Pritisnite ALT+F11 da biste pokrenuli uređivač Visual Basic.
  3. Na izborniku Insert (Umetanje) kliknite Module (Modul).
  4. Unesite sljedeći kôd u list modula:
    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 za povratak u Excel.
  6. Unesite sljedeće podatke (stupac B ostavite praznim):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 5   B5:     C5: 0
    					
  7. Odaberite raspon A1:G5.
  8. U programu Excel 2003 i u starijim verzijama programa Excel na izborniku Edit (Uređivanje) postavite pokazivač miša na Macro (Makronaredba), a zatim kliknite Down (Dolje).

    U programu Excel 2007 kliknite karticu Razvoj, a zatim kliknite Makronaredba u grupi Kôd.
  9. Kliknite Find_Matches (Pronađi_vrijednosti), a zatim Run (Pokreni).
Udvostručeni brojevi prikazani su u stupcu B. Pripadajući će se brojevi pojaviti pokraj prvog stupca, kao što je ovdje prikazano:
   A1: 1   B1:     C1: 3
   A2: 2   B2: 2   C2: 5
   A3: 3   B3: 3   C3: 8
   A4: 4   B4:     C4: 2
   A5: 5   B5: 5   C5: 0
				
Napomena Ovo je članak za brzo objavljivanje stvoren izravno iz Microsoftove službe podrške. Informacije u ovom članku navode se kakve jesu kao odgovor na nova pitanja. Materijali zbog brzine objavljivanja mogu sadržavati tipografske pogreške te mogu biti revidirani u bilo kojem trenutku bez obavijesti. Pogledajte Uvjete korištenja za dodatne informacije.

Svojstva

ID članka: 213367 - Posljednja izmjena: 30. siječnja 2014. - Revizija: 1.0
Odnosi se na:
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
Ključne riječi: 
kbdtacode kbhowto kbprogramming KB213367

Pošaljite povratne informacije

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com