webForumDet fria alternativet

Listor i Excel! akut!!

6 svar · 483 visningar · startad av Oranje

OranjeMedlem sedan sep. 200430 inlägg
#1

Hej

Har lite sma panik
Har ett dokument med 2 blad.
Varje blad innehaller en lista med tusentals produktnummer.
Det som nu ska goras ar att listan i blad1 skall kopieras in i listan i blad 2.

Det finns flertalet identiska produktnummer i dessa tva blad och nar jag da kopierar in fran blad1 till blad2 kommer jag fa dubletter. Det kan alltsa handla om hundratals dubbletter.
Finns det nagot smidigt satt att radera/undvika detta?
Jag vill ju inte garna sitta och radera detta manuellt.

Tack pa forhand och hoppas att ni hangde med i min luddiga forklaring.

VimpMedlem sedan juli 20021 064 inlägg
#2

Det lättaste vore kanske att lägga in båda tabellerna i en tabell i Access och ange id där.
Sen kan man ifrån Access exportera till Excel igen.

OranjeMedlem sedan sep. 200430 inlägg
#3

tro det eller ej,
har ingen tillgang till access just nu

HakanSMedlem sedan dec. 2002503 inlägg
#4

Vill du ta bort dubletterna från blad två när du kopierat in från blad ett? I så fall har jag ett makro som tar bort dubletter.

OranjeMedlem sedan sep. 200430 inlägg
#5

ja, precis sa HakanS
Ar det mojligt att fa tag pa detta makro.

HakanSMedlem sedan dec. 2002503 inlägg
#6

Här är makrot:

'
' TaBortDubletter Macro
' Macro recorded 1999-09-20 by Håkan Sörensson.
'
'
Sub TaBortDubletter()
    kolumn = ActiveCell.Column
    rad = ActiveCell.Row
    lastNr = ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
    currNr = ActiveCell.Value
    While slut = 0
        While currNr = lastNr
            ActiveCell.Rows("1:1").EntireRow.Select
            Selection.Delete Shift:=xlUp
            ActiveCell.Offset(0, (kolumn - 1)).Select
            lastNr = currNr
            currNr = ActiveCell.Value
            If currNr = "" Then
                ActiveSheet.Cells(rad, kolumn).Activate
                Exit Sub
            End If
        Wend
        lastNr = currNr
        ActiveCell.Offset(1, 0).Select
        currNr = ActiveCell.Value
    Wend
    ActiveSheet.Cells(rad, kolumn).Activate
End Sub

Spara för säkerhets skull ditt exceldokument. Det går inte att ångra det makrot gör.

1. Sortera först på den kolumn som du vill ta bort dubletter för.
2. Markera den översta cellen i den kolumn som du sorterade på.
3. Starta makrot.

OranjeMedlem sedan sep. 200430 inlägg
#7

ett stort tack
det funkade utmarkt.

Genererad på 374 ms · cache AV · v20260730165559-full.f96bc7eb