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

197

    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. Onks sulle väliä, jos jokin kaivattusissa

      ei ole täydellistä? Esim. venytysmerkit, arvet, selluliitti, epäsymmetriset rinnat, vinot hampaat jne?
      Ikävä
      85
      4550
    2. Ei sinussa ollut miestä

      Selvittämään asioita vaan kipitit karkuun kuin pikkupoika.
      Ikävä
      127
      3958
    3. Shokkiyllätys! 31-vuotias Hai asuu vielä "kotona" - Anna-vaimon asenne ihmetyttää: "No ei tämä..."

      Hmmm, mitenhän sitä suhtautuisi, jos aviomies/aviovaimo asuisi edelleen lapsuudenperheensä kanssa? Tuore Ensitreffit-vai
      Ensitreffit alttarilla
      33
      2521
    4. Eikö Marin ollut oikeassa kokoomuksen ja persujen toiminnasta

      Ennen vaaleja Marin kertoi mitä kokoomus tulisi hallituksessa tekemään ja tietysti persut suostuu kaikkeen, mitä kokoomu
      Maailman menoa
      197
      1535
    5. Wiisaat Lappajärvellä iät.

      Nyt nimiä listaan menneistä ja nykyisistä Wiisaista Lappajärveläisistä. Itseäkin voi tuoda esille kaikessa Wiisaudessa.
      Lappajärvi
      12
      1286
    6. Missä Steffe hiihtää?

      Missä reppuli luuraa? Ei ole Seiskassa mitään sekoiluja ollut pariin viikkoon? Onko jo liian kylmä skulata tennistä ulko
      Kotimaiset julkkisjuorut
      22
      1243
    7. Olet elämäni rakkaus

      On ollut monia ihastumisia ja syviäkin tunteita eri naisia kohtaan, mutta sinä olet niistä kaikista ihmeellisin. Olet el
      Ikävä
      36
      1198
    8. Ratkaiseva tekijä kiinnostuksen heräämisessä

      Mikä tekee deittikumppanista kiinnostavan? Mitä piirrettä arvostat / et arvosta?
      Sinkut
      62
      1193
    9. Milloin nainen, milloin?

      Katselet ja tiedän, että myös mieli tekee. Voisit laittaa rohkeasti viestin. Tiedät, että odotan. Ehkä aika ei ole vielä
      Ikävä
      61
      1153
    10. Olen menettänyt yöunet kokonaan

      Nytkin vain tunnin nukkunut. En tiedä johtuuko se sinusta vai tästä palstasta. Olis mukava nähdä oikeasti eikä arvuutel
      Tunteet
      17
      1065
    Aihe