Kahden sarakkeen tietojen vertaileminen Excelin kaksoiskappaleiden etsimiseksi

Seuraavien tapojen avulla voit verrata kahden Microsoft Excel-laskenta taulukon sarakkeen tietoja ja etsiä päällekkäisiä merkintöjä. 

Menetelmä 1: laskenta taulukon kaavan käyttäminen

  1. Käynnistä Excel.

  2. Kirjoita uuteen laskenta taulukkoon seuraavat tiedot esimerkin mukaisesti (jätä sarake B tyhjäksi):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Kirjoita seuraava kaava soluun B1:

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

  4. Valitse solu B1 – B5.

  5. Valitse Excel 2007: ssä ja uudemmissa Excel-versioissa Muokkaa -ryhmän täyttö ja valitse sitten alas.

    Lukujen kaksoiskappaleet näkyvät sarakkeessa B seuraavan esimerkin mukaisesti: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Tapa 2: Visual Basic-makron käyttäminen

Varoitus: Microsoft tarjoaa ohjelmointi esimerkkejä vain viitteille, ilman takuita, ilmaistuja tai implisiittisiä. Tämä sisältää rajoituksetta oletetut takuut kaupallisesta hyödynnettävyydestä tai sopivuudesta tiettyyn tarkoitukseen. Tässä artikkelissa oletetaan, että olet tutustunut osoitettuun ohjelmointi kieleen sekä työkaluihin, joita käytetään toiminto sarjojen luomiseen ja virheen korjaukseen. Microsoftin tuki henkilöt voivat auttaa selvittämään tietyn menettelyn toimintaa. Ne eivät kuitenkaan muokkaa näitä esimerkkejä niin, että niiden avulla voidaan lisätä toimintoja tai luoda menetelmiä, jotka vastaavat tarpeitasi.

Jos haluat verrata kahdessa sarakkeessa olevia tietoja Visual Basic-makron avulla, käytä seuraavan esimerkin ohjeita:

  1. Käynnistä Excel.

  2. Käynnistä Visual Basic Editor painamalla näppäin yhdistelmää ALT + F11.

  3. Valitse Lisää -valikossa moduuli.

  4. Kirjoita seuraava koodi moduuli taulukkoon:

    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. Palaa Exceliin painamalla näppäin yhdistelmää ALT + F11.

    1. Kirjoita seuraavat tiedot esimerkin mukaan (jätä sarake B tyhjäksi):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Valitse solu A1 – A5.

  7. Valitse Excel 2007 ja Excelin uudemmissa versioissa kehitys työkalut -väli lehti ja valitse sitten koodi -ryhmästä makrot .

    Huomautus: Jos et näe kehitys työkalut -väli lehteä, sinun on ehkä otettava se käyttöön. Voit tehdä tämän valitsemalla tiedosto > Asetukset > Mukauta valinta nauhaaja valitsemalla sitten kehitys työkalut -väli lehden oikean reunan mukauttaminen-ruudussa.

  8. Valitse Find_Matchesja valitse sitten Suorita.

    Lukujen kaksoiskappaleet näkyvät sarakkeessa B. Vastaavat numerot lisätään ensimmäisen sarakkeen viereen, kuten tässä on kuvattu:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Huomautus:  Tämä sivu on käännetty automaation avulla, ja siinä saattaa olla kielioppivirheitä tai epätarkkuuksia. Tarkoitus on, että sisällöstä on sinulle hyötyä. Kerrotko meille, oliko tiedoista hyötyä? Tästä pääset artikkelin englanninkieliseen versioon.

Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×