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!
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!
Vastaukset 2
Vanhimmat
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