webForumDet fria alternativet

Listor i Excel! akut!!

Kontorsprogram

6 svar · 485 visningar · startad av Oranje

Medlem sedan sep. 200435 inlägg
Frågan#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.

Medlem sedan juli 20022 537 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.

Medlem sedan sep. 200435 inlägg
#3

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

Medlem sedan dec. 2002529 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.

Medlem sedan sep. 200435 inlägg
#5

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

Medlem sedan dec. 2002529 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.

Medlem sedan sep. 200435 inlägg
#7

ett stort tack
det funkade utmarkt.

252 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
119 ms — deklarationer (db)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)
118 ms — ändringar (db)