tietojen lukumäärä?

hakee nyt Taul1 ja Taul2 A-sarakkeen tiedoista Taul3 A-sarakkeeseen uniikit tiedot

moduuliin...

Sub Uniikit()
Dim Vika As Double
Dim eka As Range
Dim toka As Range
On Error Resume Next

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Worksheets("Taul1").Activate
Vika = Range("A65536").End(xlUp).Row
Set eka = Range("A1:A" & Vika)

Worksheets("Taul2").Activate
Vika = Range("A65536").End(xlUp).Row
Set toka = Range("A1:A" & Vika)

Sheets("Huuhaa").Delete
Worksheets.Add().Name = "Huuhaa"
Worksheets("Huuhaa").Activate
Range("A:A") = ""
Range("A1") = "uniikit"
eka.Copy Range("A2")
Vika = Range("A65536").End(xlUp).Row 1
toka.Copy Range("A" & Vika)

Worksheets("Taul3").Activate
Sheets("Huuhaa").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
Range("A1").Select
Sheets("Huuhaa").Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Set eka = Nothing
Set toka = Nothing
End Sub

Keep Excelling :-)