Minulla on kaksi taulukkoa joissa toisessa on noin 50000 riviä ja toisessa noin 10000 riviä ja minun pitäisi saada poistettua isommasta taulukosta kaikki rivit joiden 3. sarakkeessa on sama tieto kuin pienemmän taulukon 3. sarakkeessa.
Kokeilin aikaisemmin yhdistää taulukot ja sain tällöin duplikaatit lajiteltua hajanaisesti peräjälkeen mutta tästäkään ei ollut apua koska en saanut kaikkia duplikaatteja allekkain jotta olisin voinut poistaa ne helposti.
Korostan vielä että en ole siis poistamassa ainoastaan duplikaattirivejä vaan kaikki rivit missä on 3. sarakkeessa samat tiedot pitäisi poistaa kokonaan.
Kiitos avusta jo etukäteen!
Duplikaattien poisto kokonaan
5
328
Vastaukset
- kaavan.avulla
Minä tekisin tuon siten, että ensin tekisin apusarakkeen isompaan, johon tulee rivinumerot 1,2...50000. Tuo sen vuoksi, että alkuperäinen järjestys saadaan säilytettyä pienen pyörittelyn jälkeen.
Sitten hakisin isomman taulukon yhteen sarakkeeseen jokaista isomman taulukon kolmossarakkeen arvoa pienemmän taulukon kolmossarakkeista VLOOKUP-funktiolla, esim =VLOOKUP(C1;pikkutaulu.C:C;1;0). Tämä funktio siis isomman taulukon omaan sarakkeen ensimmäiselle (hakuarvon sisältävälle, tässä tapauksessa C1) riville.
Tuo funktio palauttaa ko.arvon, jos se löytyy pienemmästä taulukosta, jos taas ei, niin palauttaa #N/A.
Sen jälkeen järjestetään isompi taulukko VLOOKUP-funktion sarakkeen mukaiseen järjestykseen. Ei duplikaatit rivit järjestyvät #N/A-arvon vuoksi peräkkäin. Sen jälkeen voi poistaa helposti ne muut rivit, jotka ovat taulukossa peräkkäisillä riveillä.
Lopuksi järjestetään isompi taulu uudelleen alkuperäiset rivinumerot sisältävän apusarakkeen mukaiseen järjestykseen ja viimeistellään taulukko poistamalla se ja VLOOKUP-kaavan sisältävä sarake.- kaavan.avulla
Ja tuo VLOOKUP-kaava toki siis monistetaan isomman taulukon jokaiselle riville. Sen ensimmäinen parametri C1 muuttuu vaan rivin mukaan, eli toisella rivillä se olisi C2 jne.
moduuliin...
Sub EtsiJaPoista()
Dim vika As Long
Dim solu As Range
Dim cainoa As New Collection
Dim i As Long
Dim uList() As Variant
'muuta taulukon nimi oikeaksi
Worksheets("Sheet2").Activate
' muuta sarake oikeaksi
vika = Range("C" & Rows.Count).End(xlUp).Row
Application.Volatile
On Error Resume Next
' muuta sarake oikeaksi
For Each solu In Range("C1:C" & vika)
If solu.Formula <> "" Then
cainoa.Add solu.Value, CStr(solu.Value)
End If
Next solu
If cainoa.Count > 0 Then
ReDim uList(1 To cainoa.Count)
For i = 1 To cainoa.Count
uList(i) = cainoa(i)
Next i
End If
'muuta nimi oikeaksi
Worksheets("Sheet1").Activate
For i = 1 To UBound(uList)
' muuta sarake oikeaksi
EtsiJaSiirrä(uList(i), Range("C:C")).EntireRow.Delete
Next
On Error GoTo 0
End Sub
Function EtsiJaSiirrä(Hakuehto As Variant, Hakualue As Range) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
On Error Resume Next
With Hakualue
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address <> EkaOsoite
End If
End With
End Function
Keep EXCELing
@Kunde- kaavan.avulla
Näyttäisi tämä makrokin toimivan. Sheet1 on siis se "isompi" mistä rivit poistetaan, ja Sheet2 se toinen joka jää ennalleen.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1073099
Kehutaan vaihteeksi Perussuomalaisia
Perussuomalaiset ovat olleet melkoisen lokakampanjoinnin kohteena, vaikka ovat saaneet paljon hyvää aikaiseksi. Nyt on872425- 241966
Roiskeläpät takaisin niin alkaa lasit kestämään
"Tuulilaseja hajottava talvi-ilmiö on ehkä ratkennut" Tämän päivän autoissa kun on esimerkiksi vanhempaa autokalustoa s221520Mitä tapahtuu?
Mitä säpäkän risteyksessä on tapahtunut kun poliiseja, ambulansseja ja kopteri paikalla?291490Tiesitkö? Johannes Brotheruksen ex-isäpuoli on kuin onkin Mikko Kuustonen - Tästä on kyse!
Tiesitkö? Ja hehän on kuin kaksi marjaa... Johannes Brotherus on KUUMAA-yhtyeen jäsen ja tänä syksynä mukana Vain elämää151395- 87912
Murtautuminen uimahalliin
17.10. yöllä Kiuruveden uimahalliin murtauduttiin yläkerran oven ikkunasta. Onko kellään havaintoja tapauksesta?26907Mitä tarkalleen tunnet
Minkälaisia tunteita sisälläsi liikkuu, kun tiedät, että ajattelen sinua lämmöllä ja jotain syttyy myös sinussa? Haluai62846Syyskuussa 2025 ensirekisteröidyistä henkilöautoista 43 % oli täyssähköautoja.
Niitä rekisteröitiin 2 592 eli 41 % enemmän kuin vuotta aiemmin. Syyskuussa 2025 rekisteröidyistä uusista henkilöautois2769