Tælle antal forekomster

Lige et tillæg: Jeg vil gerne vide hvordan jeg tæller antal tal i kolonne A som ikke er med i kolonne B og og omvendt.

Tak for hjælpen.

Nu ved jeg ikke hvilken løsning du har valgt, men nedenstående makro kan både markere de fælles elementer og tælle dem op, som er unike. Antallet bliver skrevet i cellerne D1 og D2. Du bør rette adressen, hvis der allerede står noget i de celler.

Sub findFællesTal()
Dim AntalR, R, UnikA, UnikbB As Integer
UnikA = 0
UnikB = 0
    AntalR = ActiveCell.SpecialCells(xlLastCell).Row
    For R = 1 To AntalR
    If Application.WorksheetFunction.CountIf(Range("B:B"), Cells(R, 1)) > 0 Then
        Range("A" & R).Interior.ColorIndex = 4
        Else
        UnikA = UnikA + 1
    End If
    If Application.WorksheetFunction.CountIf(Range("A:A"), Cells(R, 2)) > 0 Then
        Range("B" & R).Interior.ColorIndex = 4
        Else
        UnikB = UnikB + 1
    End If
    Next R
Range("D1") = "Der er " & UnikA & " unike elementer i kolonne A"
  Range("D2") = "Der er " & UnikB & " unike elementer i kolonne B"
End Sub

@Jens48 tak for info - har valgt den løsning med betinget formattering - kan jeg køre den foreslåede model nævnt ovenfor - har dk udgaven af excel?

Det kan du godt, men du bør nok fjerne den betingede formattering. Desuden havde jeg glemt at fjerne farvelægningen før ny test, så makroen kommer nu til at se sådan ud:

Sub findFællesTal()
Dim AntalR, R, UnikA, UnikB As Integer
UnikA = 0
UnikB = 0
AntalR = ActiveCell.SpecialCells(xlLastCell).Row
Range("A1:B" & AntalR).Interior.Color = xlNone
    For R = 1 To AntalR
    If Application.WorksheetFunction.CountIf(Range("B:B"), Cells(R, 1)) > 0 Then
        Range("A" & R).Interior.ColorIndex = 4
        Else
        UnikA = UnikA + 1
    End If
    If Application.WorksheetFunction.CountIf(Range("A:A"), Cells(R, 2)) > 0 Then
        Range("B" & R).Interior.ColorIndex = 4
        Else
        UnikB = UnikB + 1
    End If
    Next R
Range("D1") = "Der er " & UnikA & " unike elementer i kolonne A"
  Range("D2") = "Der er " & UnikB & " unike elementer i kolonne B"
End Sub

Tak jens48, prøvede at kopiere makroen over i et excel - men kunne ikke indsætte den i makroen...???

Højreklik på fanebladet og vælg View Codes. Makroen skal indsættes der.

Mange tak Jens48 - værsgo og ta points.

Du får et svar