Automatisk fjernelse af indhold i celler

Prøv med denne:

Sub FjernDublikeredeVærdier()
Dim ws As Worksheet
Dim omr As Range
Set ws = ActiveSheet
'Forudsætter at data er fra celle A2 og ned
'Fjerner alle dublikerede værdier undtagen den øverste
'Rører ikke værdier i kolonne A1 (overskriften)
    If ws.Range("A1") = "" Then Exit Sub
    Set omr = ws.Range("A1048576").End(xlUp)
    Do Until omr.Row = 2
        If omr.Value = omr.Offset(-1).Value Then
            omr.ClearContents
        End If
        Set omr = omr.Offset(-1)
    Loop
End Sub

Helt perfekt igen...  sender du et svar

P.s. sender et nyt spørgsmål om udskrift, håber du også er stærk der!

Et svar