Kirjaudu sisään Microsoft-tilillä
Kirjaudu sisään tai luo tili.
Hei,
Käytä toista tiliä.
Sinulla on useita tilejä
Valitse tili, jolla haluat kirjautua sisään.

Seuraavien menetelmien avulla voit verrata kahden Microsoft Excel -laskentataulukon sarakkeen tietoja ja etsiä merkintöjen kaksoiskappaleita. 

Menetelmä 1: Laskentataulukon kaavan käyttäminen

  1. Käynnistä Excel.

  2. Kirjoita uuteen laskentataulukkoon esimerkiksi seuraavat tiedot (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:

    =JOS(ONVIRHE(VASTINE(A1,$C$1:$C$5,0)),"",A1)

  4. Valitse solut B1–B5.

  5. Valitse Excel 2007:ssä ja sitä uudemmissa Excel-versioissa kohta TäytäMuokkaus-ryhmässä ja valitse sitten Alas.

    Lukujen kaksoiskappaleet näkyvät sarakkeessa B, kuten seuraavassa esimerkissä: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

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

Varoitus: Microsoft tarjoaa ohjelmointiesimerkkejä vain havainnollistamista varten ilman ilmaistua tai oletettua takuuta. Tämä sisältää muun muassa oletetut takuut soveltuvuudesta kaupankäynnin kohteeksi tai sopivuudesta tiettyyn tarkoitukseen. Tässä artikkelissa oletetaan, että tunnet ohjelmointikielen, jota esitellään, sekä työkalut, joita käytetään toimintosarjojen luomiseen ja virheenkorjaukseen. Microsoftin tukihenkilöt voivat auttaa selittämään tietyn toimintosarjan toiminnallisuuden. He eivät kuitenkaan muokkaa näitä esimerkkejä tarjotakseen lisätoimintoja tai luodakseen toimintosarjoja, jotka vastaavat tarpeitasi.

Jos haluat käyttää Visual Basic -makroa kahden sarakkeen tietojen vertailuun, noudata seuraavan esimerkin ohjeita:

  1. Käynnistä Excel.

  2. Käynnistä Visual Basic -editori painamalla ALT+F11.

  3. Valitse Insert-valikossa Module.

  4. Kirjoita seuraava koodi moduuli-ikkunaan:

    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 ALT+F11.

    1. Kirjoita esimerkiksi seuraavat tiedot (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 solut A1–A5.

  7. Valitse Excel 2007:ssä ja sitä uudemmissa Excel-versioissa Kehitystyökalut-välilehti ja valitse sitten MakrotKoodi-ryhmässä.

    Huomautus: Jos et näe Kehitystyökalut-välilehteä, sinun on ehkä otettava se käyttöön. Voit tehdä tämän valitsemalla Tiedosto > Asetukset > Valintanauhan mukauttaminen ja valitsemalla sitten Kehitystyökalut-välilehden oikeanpuolimmaisesta laatikosta.

  8. Valitse Find_Matchesja valitse sitten Suorita.

    Lukujen kaksoiskappaleet näkyvät sarakkeessa B. Vastaavat luvut sijoitetaan ensimmäisen sarakkeen viereen seuraavalla tavalla:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Tarvitsetko lisäohjeita?

Haluatko lisää vaihtoehtoja?

Tutustu tilausetuihin, selaa harjoituskursseja, opi suojaamaan laitteesi ja paljon muuta.

Osallistumalla yhteisöihin voit kysyä kysymyksiä ja vastata niihin, antaa palautetta sekä kuulla lisää asiantuntijoilta, joilla on runsaasti tietoa.

Oliko näistä tiedoista hyötyä?

Kuinka tyytyväinen olet käännöksen laatuun?
Mikä vaikutti kokemukseesi?
Kun valitset Lähetä, palautettasi käytetään Microsoftin tuotteiden ja palveluiden parantamiseen. IT-järjestelmänvalvojasi voi kerätä nämä tiedot. Tietosuojatiedot.

Kiitos palautteesta!

×