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
208
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
- 453383
Riikka on siis suomalaisille velkaa 84 mrd
Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai693181Luotathan siihen tunteeseen, joka välillämme on?
Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist302925Sanna on suomalaisille siis velkaa 24 mrd euroa
Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl1592728- 252219
En saa sua mielestäni vaikka tekisin mitä
Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛112099Kirjotan ikävää ulos
Haluaisin kuulla mitä ajattelet minusta. ihan mitä vaan mitä mietit. Voisit kertoa minulle, tai sitten kirjoittaisit run141648Sinä se vaan jaksat
Suosittelen lopettamaan hyvissä ajoin, tuo toimintas ei auta unohtamiseen. Jossain vaiheessa asia julkistuu enkä usko et231507Onnettomuus
Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?31357- 151316