06. august 2003 - 14:58Der er
9 kommentarer og 1 løsning
Fjerne flere forekomster af samme celle baseret på indhold
Hi,
Disse linjer sorterer og fjerner eventuelle doubletter, tripletter, etc.
Columns("B:B").Sort Key1:=Range("B1") Range("B1").Select Do Until Len(ActiveCell.Value) = 0 strSender = ActiveCell.Value ActiveCell.Offset(1, 0).Select strSenderCompare = ActiveCell.Value If strSender = strSenderCompare Then ActiveCell.Delete Shift:=xlUp Else ActiveCell.Offset(1, 0).Select End If Loop
funktionen virker, men der må være en lettere (og hurtigere) måde at gøre det på...?
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
Med udgangspunkt i din egen makro. Den "fjerner" ikke de overskydende celler men sorterer igen tilsidst således at de kommer nedest og er blanke.
Sub test() Dim ThisCell As Range Columns("B:B").Sort Key1:=Range("B1") Set ThisCell = Range("B1") Do Until Len(ThisCell.Value) = 0 i = 1 While ThisCell.Value = ThisCell.Offset(i, 0).Value ThisCell.Offset(i, 0).Value = "" i = i + 1 Wend Set ThisCell = ThisCell.Offset(i, 0) Loop Columns("B:B").Sort Key1:=Range("B1") End Sub
Hastigheden her burde være betydelig bedre, men den kan ikke slå Avanceret filter. grunden til at din er langsommere, er dine Select's og ActiveCell.Delete Shift:=xlUp
Lige et spørgsmål. Hvis man har lavet et avanceret filter, hvor nogle rækker er filtreret fra, vil de disse række så medtages fx i beregningsprocedurerer der går fra celle til celle i en kolonne? Eller vil de blive springet helt over?
Hvis du bruger avanceret filter på den måde, at du lader data blive i det oprindelige område, vil de skjulte celler stadig indgå i beregninger af typen =SUM(B1:B199)
Men hvis du bruger avanceret filter, og indsætter data et andet sted, vil dubletter være fjernet helt fra listen.
Lige en sidste ting (beklager). Er der meget stor forskelig i hastighed hvis man filtrerer på en hel kolonne ift. at finde det område at kolonnen, hvor der er "cellefyld" og derefter filtrere på det område?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
