kahden excel taulukon vertailu

Hei, minulla on ongelma jota en osaa ratkaista. Käytössä excel 2003 versio.
ongelma: kaksi excel taulukkoa A ja B. Taulukossa A on ensimmäisessä sarakkeessa auton rekisterinumero ja muissa nimi,osoite ym tietoa. Taulukossa B on myös sarake, esim D, jossa on auton rekisterinumero.

Taulukosta A pitäisi pystyä poistamaan kaikki rivit, joilla esiintyy sama rekisterinumero, joka löytyy taulukosta B.
Ilmianna
Jaa

1 Vastaus


pikkusen foorumilla hakua peliin ja vastaavia kyssäreitä löytyy ja mun vastaukset niihin, ei tartte kuin sarakkeita ja nimiä muutella...

moduuliin...

Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
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

Sub EtsiijaPoistaa()
Dim vika As Long
On Error Resume Next
vika = Worksheets("Sheet2").Range("D65536").End(xlUp).Row
For Each solu In Worksheets("Sheet2").Range("D1:D" & vika)
EtsiJaSiirrä(solu, Columns("A:A")).EntireRow.Delete
Next
End Sub

Keep EXCELing
@Kunde
Ilmianna
Jaa

Vastaa alkuperäiseen viestiin

kahden excel taulukon vertailu

Hei, minulla on ongelma jota en osaa ratkaista. Käytössä excel 2003 versio.
ongelma: kaksi excel taulukkoa A ja B. Taulukossa A on ensimmäisessä sarakkeessa auton rekisterinumero ja muissa nimi,osoite ym tietoa. Taulukossa B on myös sarake, esim D, jossa on auton rekisterinumero.

Taulukosta A pitäisi pystyä poistamaan kaikki rivit, joilla esiintyy sama rekisterinumero, joka löytyy taulukosta B.

5000 merkkiä jäljellä

Peruuta