Miten saadaan osoitelistoja verrattua excelissä?

H1ppu

Ongelma: On kaksi eri pituista osoitelistaa excelissä, lista A ja lista B. Listaan A sisältyvät myös kaikki ne osoitteet, jotka ovat listassa B (eli lista B on osa listasta A). Nyt tarvitsisi selvittää ne osoitteet, jotka eivät ole listalla B, ja tehdä niistä lista C. Miten onnistuu? Kyse ei siis ole duplikaattien poistosta, ja osoite on säpö, joten kaikki tiedot voidaan laittaa samaan taulukkoon eri sarakkeisiin.

11

280

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Tämmöinen

      Sub Puuttuvat()

      Dim r1, r2, r3 As Integer
      Dim haettava As String
      Dim löytyi As Boolean

          r1 = 1
          r3 = 0
          Do
              haettava = Cells(r1, 1)
              r2 = 0
              Do
                  r2 = r2 1
                  löytyi = Cells(r2, 2) = haettava
                  If löytyi Then Exit Do
              Loop Until Cells(r2 1, 2) = ""
              If Not löytyi Then
                  r3 = r3 1
                  Cells(r3, 3) = haettava
              End If
              r1 = r1 1
          Loop Until Cells(r1, 1) = ""
      End Sub

    • H1ppu

      Kiitos, ja auts, en ole noin pro =) Koitan askarrella tuon kuitenkin. Osaisiko joku antaa ohjeet rautalankaversiona?

      • Tämmöinen

        Paina Alt F11
        - Aukeaa VBA-editori. Sieltä:
        Insert – Module
        - Kopioi yllä oleva makro tähän Moduliin

        Makro suoritetaan Excelistä esim.
        Paina Alt F8
        - Valitse makro listalta ja paina Run


      • H1ppu

        Kiitos, onnistui!!


    • Haitko-tätä
      • H1ppu

        Kokeilin, mutten saanut toimimaan. Missähän voisi olla vika? C-sarakkeessa on seuraava kaava, muttei palauta yhtään arvoa, tulee pelkkää tyhjää C-sarakkeeseen:
        =IF(ISNA(VLOOKUP(A1;$B$1:$B$10;1;0))=1;A1;"")


      • Haitko-tätä
        H1ppu kirjoitti:

        Kokeilin, mutten saanut toimimaan. Missähän voisi olla vika? C-sarakkeessa on seuraava kaava, muttei palauta yhtään arvoa, tulee pelkkää tyhjää C-sarakkeeseen:
        =IF(ISNA(VLOOKUP(A1;$B$1:$B$10;1;0))=1;A1;"")

        C-sarakkeen tyhjä solu tarkoittaa sitä että A1 solussa oleva arvo löytyy joltakin riviltä B-sarakkeen soluista.

        =JOS(ONPUUTTUU(PHAKU(A1;$B$1:$B$5;1;0))=1;A1;"")
        ja käänteisenä näin
        =JOS(ONPUUTTUU(PHAKU(A1;$B$1:$B$5;1;0))=0;A1;"")


      • H1ppu

        Jep, mutta c-sarakkeeseen ei palaudu mitään, oli a-sarakkeen arvo b:ssä tai ei. Koitin toistaa myös leikkeessä olleilla luvuilla, jotta tulisi ihan samoin (paitsi mun excel on englanniksi), muttei onnistunut. Kumma. Makrolla sain toimimaan, mutta tämänkin tavan haluaisin oppia.


      • Haitko-tätä
        H1ppu kirjoitti:

        Jep, mutta c-sarakkeeseen ei palaudu mitään, oli a-sarakkeen arvo b:ssä tai ei. Koitin toistaa myös leikkeessä olleilla luvuilla, jotta tulisi ihan samoin (paitsi mun excel on englanniksi), muttei onnistunut. Kumma. Makrolla sain toimimaan, mutta tämänkin tavan haluaisin oppia.

        Hitto, excelissä tuo meneekin näin:
        =JOS(ONPUUTTUU(PHAKU(A1;$B$1:$B$10;1;0));A1;"")


    • JOSLASKEJOS

      Yksi mahdollisuus.
      C1=IF(COUNTIF(B:B; A1)=0; A1; "")

      • H1ppu

        Kiitos! Tämäkin toimii! :)


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mistä puhuitte viimeksi kun näitte

      Kerro yksi aiheista
      Ikävä
      101
      7433
    2. 79
      4984
    3. Se on hyvästi

      Toivottavasti ei tavata.
      Ikävä
      79
      4849
    4. Olenko saanut sinut koukkuun?

      Hyvä. Rakastan sua.
      Ikävä
      132
      4258
    5. Alavuden sairaala

      Säästääkö Alavuden sairaala sähkössä. Kävin Sunnuntaina vast. otolla. Odotushuone ja käytävä jolla lääkäri otti vastaan
      Ähtäri
      9
      3038
    6. Miksi sä valitsit

      Juuri minut sieltä?
      Ikävä
      52
      2679
    7. Sisäsiittosuus

      Tämän kevään ylioppilaista 90% oli sama sukunimi?
      Suomussalmi
      40
      2576
    8. Kerro nyt rehellisesti fiilikset?

      Rehellinem fiilis
      Suhteet
      48
      2229
    9. Törkeää toimintaa

      Todella törkeitä kaheleita niitä on Ylivieskassakin. https://www.ess.fi/uutissuomalainen/8570818
      Ylivieska
      10
      2211
    10. Suudeltiin unessa viime yönä

      Oltiin jossain rannalla jonkun avolava auton lavalla, jossa oli patja ja peitto. Uni päättyi, kun kömmit viereeni tähtit
      Ikävä
      21
      1840
    Aihe