Læg værdi i dublet sammen

Kan du ikke anvende en pivot-tabel? Der er grupperingen en standard mulighed.

Du kan bruge Data/Avanceret filter til at kopiere en unik ISBN-liste til et andet ark..... Der kan du i G-kolonnen bruge SUM.HVIS til at den sum du vil have, og efterfølgende kopiere G-kolonne og indsætte speciel som værdier.

en makro

Sub TælSammen()
Dim A As Integer, B As Integer, Data As Variant, Res As Variant
B = Range("B65536").End(xlUp).Row ' finder sidste række med data
Data = Range("A1:B" & B) ' Dublerende kolonne A og Antal kolonne B
Res = Range("C1:D" & B) ' Skriver resultatet i Kolonne C og D

For T = 1 To UBound(Data)
For i = 1 To UBound(Res)
If Res(i, 1) = Data(T, 1) Then
Res(i, 2) = Res(i, 2) + Data(T, 2)
GoTo Næste
End If
If Res(i, 1) = "" Then
Res(i, 1) = Data(T, 1)
Res(i, 2) = Res(i, 2) + Data(T, 2)
GoTo Næste
End If
Next
Næste:
Next
Range("C1:D" & B) = Res 'Skriver i C og D kolonnen
'Range("A1:B" & B) = Res ' byttes med ovenstående OVERSKRIVES  A og B kolonnen
End Sub

Jeg undrede mig over at han nævnte koll A og G og formoder han har nogle værdier liggende derimellem.
Så rent umiddelbart synes jeg at en løsning med en pivot-tabel er nærliggende.

brynil >>
ja du har ret, jeg så ikke at det var A og G, min makro kører på A + B og gemmer i C + D kolonnen, som skal være tomme fra starten.

Men den kan selvfølgelig rettes til, hvis vi ved hvad der er i de andre kolonner.

Jeg sidder lige og tænker (av!) på: hvis man forudsætter der ér sorteret, ku' man så ikke merge ens værdier i A og summe hhv merge i G og derved give plads til forskellige værdier i de øvrige koll? Den ku' jeg egentlig godt bruge selv.

kabbak: det virker fint, men det gør ikke det som jeg beskrev.
Det er jo et størr arbejde at gøre det på den måde.
Kan man ikke lave en funkion der siger;
Hvis værdi cellen i kolonne "A" er lig med et andet felt i kolonne "A" så skal den "summe" de to kolonne "G" i samme række, og slette den dublet den lige fandt.

Bagefter kan jeg jo bare sortere efter tomme felter, og slette dem

har du prøvet at sorterer dataerne på ISBN nr og så køre en subtotal

visto > hvorfor benytter du ikke bare Data/Filter/Avanceret filter som beskrevet - så er det overstået på 1 minut.

jeg har løst det med en kombination af macro og Lookup.... tak for hjælpen
kabbak: lav lige et svar tak :-)

et svar ;-))