ID članka: 213367 - Oglejte si izdelke, na katere se nanaša ta članek.
Razširi vse | Zmanjšaj

Na tej strani

Povzetek

V tem članku sta opisana dva načina za primerjavo podatkov v dveh stolpcih na Microsoft Excelovem delovnem listu in iskanje podvojenih vnosov.

Dodatne informacije

1. način: Uporaba formule na delovnem listu

Če želite s formulo na delovnem listu primerjeti podatke v dveh stolpcih, sledite tem korakom:
  1. Zaženite Excel.
  2. Na novem delovnem listu vnesite te podatke (stolpec B naj bo prazen):
    O1: 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. V celico B1 vnesite to formulo:
    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
  4. Izberite celice B1:B5.
  5. V Microsoft Office Excelu 2003 in prejšnjih različicah Excela v meniju Edit (Urejanje) pokažite na Fill (Polnilo), nato kliknite Down (Dol).

    V Microsoft Office Excelu 2007 in Excelu 2010 v skupini Urejanje kliknite Polnilo in nato kliknite Dol.

    Podvojeni vnosi se prikažejo v stolpcu B, tako kot v spodnjem primeru:
       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
    					

2. način: Uporaba Visual Basicovega makra

Microsoft ponuja primere za programiranje le za ponazoritev brez izrecnih ali naznačenih jamstev. To vključuje, a ni omejeno na naznačena jamstva glede primernosti za prodajo ali določen namen. V tem članku predvidevamo, da poznate programski jezik, ki se prikazuje, in orodja za ustvarjanje ter postopke odpravljanja napak. Microsoftovi inženirji za podporo vam lahko razložijo funkcionalnost posameznega postopka. Ne bodo pa spreminjali primerov, da bi zagotovili dodatno funkcionalnost ali zgradili postopke, s katerimi bi zadovoljili posebne zahteve. Če želite uporabiti Visual Basicov makro za primerjavo podatkov v dveh stolpcih, sledite korakom v spodnjem primeru:
  1. Zaženite Excel.
  2. Pritisnite tipki ALT+F11, da odprete urejevalnik za Visual Basic.
  3. V meniju Insert kliknite Module.
  4. Na stran v modulu vnesite spodnjo 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")
        OPOMBA: Če je primerjalni obseg v drugem delovnem zvezku
        ali listu, uporabite spodnjo skladnjo.
        ' 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 tipki ALT+F11 in se vrnite v Excel.
  6. Vnesite spodnje podatke (stolpec B naj bo prazen):
    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. Izberite obseg A1:A5.
  8. V Excelu 2003 in prejšnjih različicah Excela v meniju Tools (Orodja) pokažite na Macro (Makro), nato kliknite Macros (Makri).

    V Excelu 2007 in Excelu 2010 kliknite zavihek Razvijalec in nato v skupini Koda kliknite Makri.
  9. Kliknite Find_Matches, nato kliknite Zaženi.
V stolpcu B se prikažejo podvojene številke. Zadetki bodo postavljeni zraven prvega stolpca, kakor je prikazano spodaj:
   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
				
Opomba To je članek za »HITRO OBJAVO«, ki je ustvarjen neposredno v Microsoftovi organizaciji za podporo. Informacije v tem članku so na voljo »takšne kot so« in kot odziv na težave. Zaradi hitrosti pri objavljanju članka so v gradivu lahko tipografske napake, ki se jih lahko popravi kadar koli brez obvestila. Za dodatne informacije glejte Pogoje uporabe.

Lastnosti

ID članka: 213367 - Zadnji pregled: 29. april 2014 - Revizija: 1.0
Velja za:
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
Ključne besede: 
kbdtacode kbhowto kbprogramming KB213367

Pošlji 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