Kako V Excelu primerjati podatke v dveh stolpcih in poiskati podvojene zapise

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.
Nazaj na vrh | Pošlji povratne informacije

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 v skupini Urejanje kliknite Polnilo, 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 kliknite kartico 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
Nazaj na vrh | Pošlji povratne informacije

Lastnosti

ID članka: 213367 - Zadnji pregled: 29. december 2007 - Revizija: 4.1
VELJA ZA
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
Ključne besede: 
kbhowto kbprogramming kbdtacode KB213367
Nazaj na vrh | Pošlji povratne informacije

Pošlji povratne informacije

 
Nazaj na vrhNazaj na vrh