05. november 2008 - 15:50Der er
6 kommentarer og 1 løsning
Slet rækker med bestemt indhold
Jeg har brug for en makro, der kan slette nogle rækker. Der er tale om et regneark, der indeholder op til 19.000 rækker. Det er indlæst fra en tekstfil. Sidehovedet fra tekstfilen er også indlæst.
Jeg tror den nemmeste måde at slette dem på via en makro er, at "kigge" i kolonne A. Indeholder cellen i kolonne A IKKE et tal, skal hele rækken slettes.
Alternativt kan det også gøres ved at se efter: - "Scan" - "Optællings" - "─" - "Varenummer" - "─"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Sub Slet_ikke_tal() Dim Data As Variant, I As Long Data = Range("A2:A" & Range("A65536").End(xlUp).Row) For I = 1 To UBound(Data) If Not IsNumeric(Data(I, 1)) Then Data(I, 1) = Empty Next Range("A2:A" & Range("A65536").End(xlUp).Row) = Data Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Delete End Sub
Sub Slet_ikke_tal() Dim Data As Variant, I As Long Data = Range("A2:A" & Range("A65536").End(xlUp).Row) For I = 1 To UBound(Data) If Not IsNumeric(Data(I, 1)) Then Data(I, 1) = Empty Next Range("A2:A" & Range("A65536").End(xlUp).Row) = Data Range("A2:A" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub
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.
