En tiedä miten tämä tehdään, neuvokaa viisaammat kiitos. Minulla on kaksi erillistä csv dokumenttia.
Ensimmäisessä on noin 1500 sanaa, toisessa noin 900. Kaikki toisen listan sanat löytyvät myös ensimmäisestä listasta.
Haluaisin luoda kolmannen listan, mihin jäljelle jäävät vain uniikit sanat listasta yksi. Miten siis poistan sanat mitkä esiintyvät molemmissa listoissa 1 ja 2. Sekavammin en osaa selittää, toivottavasti joku tajusi
Lista 1 : 1500 sanaa (600 uniikkia, 900 samaa kuin listassa 2)
Lista 2 : 900 sanaa
KIITOS!
Neuvokaa viisaat!
Teppo vitonen
2
214
Vastaukset
- muuan mies
Lista 1 taulukkoon 1, Lista 2 taulukkoon 2:
Lista 1:n A-sarakken sanojen viereen sarakkeeseen B =LASKE.JOS(Taul2!$A$1:$A$900;A1)
Nyt B-sarakkeessa on Lista 1 sanojen lukumäärä Lista 2:ssa, eli 1 jos löytyy 2:sta ja 0 jos on vain lista 1:ssä.
Sorttaa ja poista ykkösen sisältävät rivit. tekee aktiivisen taulukon A -sarakkeeseen listan uniikeista. Muuta polku ja tiedostojen nimet sopivaksi. Tiedostojen pitää olla muotoa testi1 ja testi2 tms.
moduuliin...
Sub UniikitTiedostosta()
Dim i As Long
Dim vika As Long
For i = 1 To 2
Workbooks.Open Filename:="c:\testi" & i & ".csv"
ActiveSheet.UsedRange.Copy
ActiveWorkbook.Close
vika = Range("A65336").End(xlUp).Row
Range("A" & vika).Select
ActiveSheet.Paste
Next i
vika = Range("A65536").End(xlUp).Row
For i = vika To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & i), Range("A" & i).Text) > 1 Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä2911545Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa604129Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1263343Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie2102681Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin1162376Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh2061899Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.3421260- 691062
Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta20967- 65850