"Dé grootste en gratis computerhelpdesk van Nederland"
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub hsv()
Dim sv, a, b(3), i As Long, j As Long
sv = Cells(1).CurrentRegion
With CreateObject("scripting.dictionary")
For i = 1 To UBound(sv)
a = .Item(sv(i, 1) & "|" & sv(i, 2) & "|" & sv(i, 3))
If IsEmpty(a) Then
a = b
For j = 1 To 4
a(j - 1) = sv(i, j)
Next j
.Item(sv(i, 1) & "|" & sv(i, 2) & "|" & sv(i, 3)) = a
Else
.Remove sv(i, 1) & "|" & sv(i, 2) & "|" & sv(i, 3)
End If
Next i
Cells(2, 13).Resize(.Count, 4) = Application.Index(.items, 0)
Cells(4, 13).Resize(.Count - 2, 4).Sort Cells(4, 13), , , , , , , 1
End With
End Sub
Sub jec()
jv = Cells(1).CurrentRegion
With CreateObject("scripting.dictionary")
For i = 1 To UBound(jv)
k = jv(i, 1) & jv(i, 2) & jv(i, 3)
If Not .Exists(k) Then
.Item(k) = Array(jv(i, 1), jv(i, 2), jv(i, 3), jv(i, 4))
Else
.Remove k
End If
Next
Cells(2, 19).Resize(.Count, 4) = Application.Index(.items, 0, 0)
Cells(4, 19).Resize(.Count - 2, 4).Sort Cells(4, 19), , , , , , , 1
End With
End Sub
