Indsæt funktion

Umiddelbart kender jeg ikke en enkelt funktion, der løser opgaven. Hvis det er en engangsopgave og data i de 3 første ark ikke er dynamiske, ville jeg kopiere sammen til een lang række og derefter lave pivottabel på varenr. Denne kunne så kopieres til det ønskede ark4.
..men der findes garanteres en bedre måde der også kan håndtere løbende ændringer.

en makro

Public Sub FlytAkolonne()
Dim Data(3000) As Variant, T As Integer, I As Integer
I = 1
Sheets("ark1").Select
Range("a1:A1000").Select
For Each C In Selection
Data(I) = C
If I > 1 Then
For T = 1 To I - 1
If Data(I) = Data(T) Or Data(I) = Empty Then GoTo Om1
Next
End If
I = I + 1
Om1:
Next C

Sheets("ark2").Select
Range("a1:A1000").Select
For Each C In Selection
Data(I) = C
For T = 1 To I - 1
If Data(I) = Data(T) Or Data(I) = Empty Then GoTo Om2
Next
I = I + 1
Om2:
Next

Sheets("ark3").Select
Range("a1:A1000").Select
For Each C In Selection
Data(I) = C
For T = 1 To I - 1
If Data(I) = Data(T) Or Data(I) = Empty Then GoTo Om3
Next
I = I + 1
Om3:
Next C
Sheets("ark4").Select
For T = 1 To I
Cells(T, 1) = Data(T)
Next
End Sub

Prøv at lege med Pivottabeller
Under et af de første trin kan du vælge at lave en pivottabel af flere konsolideringsområder.
Her udpeger du de områder der skal konsolideres og der bliver lavet en pivottabel der dækker alle områder.
Denne kan opdateres når du ønsker.

SUPER !!!