Notifikationer

Markér alle som læst Log ud

h_s Forsker

05. november 2008 - 15:50 Der 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"
- "─"

Sådan starter de rækker, der skal slettes!

Er der nogen der kan hjælpe?

Synes godt om

h_s Forsker

05. november 2008 - 16:08 #1

Der skal startes fra række 2!

Synes godt om

kabbak Professor

05. november 2008 - 16:25 #2

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

Synes godt om

h_s Forsker

05. november 2008 - 16:26 #3

ups!

"─" er det samme som en streg "-"

Synes godt om

h_s Forsker

05. november 2008 - 16:29 #4

Kabbak - Det er hele rækken der skal slettes eller i hvert til fald til og med kolonne D, er det A2:A, der ændres til A2:D?

Synes godt om

kabbak Professor

05. november 2008 - 17:27 #5

det var mig som glemte "EntireRow" i sidste linje

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

Synes godt om

h_s Forsker

05. november 2008 - 17:29 #6

Endnu engang TAK!
Smid et svar! :-)

Synes godt om

kabbak Professor

05. november 2008 - 18:27 #7

et svar :-))

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel	5	17/04/202616:11	27/04/202617:58
Træk data fra ny lokation ved måneds skift Af Hezo i Excel	6	13/04/202614:32	15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel	2	31/03/202610:22	31/03/202611:47
Stempel ur start og stop Af lurup i Excel	3	23/03/202613:24	07/05/202614:01
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS