AA
A A A
Opastus ja palaute
liity jäseneksi!
 /   /  /  /  /  / kahden excel taulukon vertailu

kahden excel taulukon vertailu

1 Vastausta 395 Lukukertaa
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.
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
 /   /  /  /  /  / kahden excel taulukon vertailu

Asiantuntijat

  • SincityNaisille ja pariskunnille sunnattu intiimituotteiden erik...

Keskusteluhaku

Laaja haku



Lisää keskusteluja aiheesta

Viikon keskustelluimmat

Tietoa mainosten kohdentamisesta