Kolommen vergelijken en aanpassen

wweiden · 17 jan 2017

Hallo allemaal,

Ik ben bezig in een Excel bestand met ongeveer 1500 rijen en 3 kolommen. Nu wil ik in dit bestand de data uit kolom A matchen met data uit kolom B en C. Ik zal het zo goed mogelijk proberen uit te leggen met onderstaand voorbeeld:

A B C
5 1 204291422
5 2 204674566
7 4 182261426
7 5 161985890
14 7 139221165

Wat ik voor elkaar wil krijgen is het volgende:

In de eerste rij heeft cel A1 een waarde van 5. Ik wil dat in cel B1 vervolgens ook een 5 komt te staan (uit cel B4) en in kolom C de waarde 161985890 (uit cel C4). Eigenlijk wil ik dus dat B1:B3 en C1:C3 worden verwijderd. De waarde in kolom A moet overeen komen met de waarde in kolom B, in kolom C moet vervolgens het nummer komen te staan wat hoor bij de waarde uit kolom B. Na bewerking moet bovenstaand voorbeeld er als volgt uitzien:

A B C
5 5 161985890
5 5 161985890
7 7 139221165
7 7 139221165
14

Hebben jullie tips om dit voor elkaar te krijgen?

Alvast bedankt.

Bekijk bijlage Voorbeeld_Excel.xlsx

HSV · 17 jan 2017

Komt dit in de buurt?

Code:

Sub hsv()
Dim sn, sq, i As Long, ii As Long
sn = Cells(1).CurrentRegion
sq = Cells(1).CurrentRegion
For i = 2 To UBound(sn)
 For ii = 2 To UBound(sn)
    If sn(i, 1) = sn(ii, 2) Then
      sn(i, 2) = sn(ii, 2)
      sn(i, 3) = sn(ii, 3)
    End If
   Next ii
 Next i
      For i = 2 To UBound(sn)
        If sn(i, 3) = sq(i, 3) Then
          sn(i, 1) = ""
          sn(i, 2) = ""
          sn(i, 3) = ""
        End If
     Next i
 Cells(1, 10).Resize(UBound(sn), 3) = sn
End Sub

Kolommen vergelijken en aanpassen

wweiden

Nieuwe gebruiker

HSV

Inventaris

Nieuwste berichten

Wij waarderen jouw privacy