Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketFjerne tomme rækker
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
peda Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109 		Direkte link til dette indlæg Emne: Fjerne tomme rækker
    Sendt: 15.Nov.2015 kl. 21:42
Hej Gruppe
Sikkert nemt for jer, men!!
Jeg importerer data til Excel fra andet program. Disse kommer fint nok over, men der er tomme rækker imellem. Mit spørgsmål går nu på hvordan disse nemmest kan fjernes i et hug, så jeg kan arbejde videre med data. Håber dette er forståeligt
mvh peda
mvh
peda
Til top



Til top
Kasper Se dropdown
Sølv bruger
Sølv bruger


Medlem: 10.Jun.2015
Status: Offline
Point: 340 		Direkte link til dette indlæg Sendt: 16.Nov.2015 kl. 12:36
Er det altid de samme rækker, der er tomme eller varierer det?
 
 
Til top
peda Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109 		Direkte link til dette indlæg Sendt: 16.Nov.2015 kl. 13:10
Det varierer desværre
mvh
peda
Til top
Kasper Se dropdown
Sølv bruger
Sølv bruger


Medlem: 10.Jun.2015
Status: Offline
Point: 340 		Direkte link til dette indlæg Sendt: 16.Nov.2015 kl. 18:56
Kunne do prøve lige at oploade et eksempel på et ark?
Til top
peda Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109 		Direkte link til dette indlæg Sendt: 17.Nov.2015 kl. 09:07
Her er et eksempel. Programmet jeg henter data fra levner noget snavs. Jeg kan ikke finde ud af hvad det er, men når jeg går ned i bunden går markøren meget længere ned end der tilsyneladende er data. Det er ikke umiddelbart noget at se. Mit mål er altså at få fjernet alle de tomme linier så der kan arbejdes videre
uploads/130/Eksempel.xls
mvh
peda
mvh
peda
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Online
Point: 5508 		Direkte link til dette indlæg Sendt: 17.Nov.2015 kl. 10:05
kan du ikke lave det som en tabel ved indsæt tabel med overskrifter også sorter på dato
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694 		Direkte link til dette indlæg Sendt: 17.Nov.2015 kl. 13:00
Hej,

Hvad med, vælg hele kolonne B,  tryk F5, alt+s, alt+c, så skulle du have valgt de tomme celler,
tryk ctrl+- (altså minus),  vælg hel række,  tryk ok.
VH rassten

Arbejde excel 2010
Privat excel 2010
Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08.Nov.2013
Status: Offline
Point: 95 		Direkte link til dette indlæg Sendt: 25.Nov.2015 kl. 10:12
Hej jeg havde en kode stump liggende som

ser ud til at kunne gøre tricket Smile

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SletTommeRaekker()
Application.ScreenUpdating = False
    lstrow = ActiveSheet.UsedRange.Rows(UBound(ActiveSheet.UsedRange.Value)).Row
        For i = lstrow To 1 Step -1
            If IsEmpty(Range("B" & i)) Then
                Range("B" & i).EntireRow.Delete
            End If
        Next i
Application.ScreenUpdating = True
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Til top
peda Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109 		Direkte link til dette indlæg Sendt: 25.Nov.2015 kl. 20:04
Tak for svaret. Jeg har fået en stump kode der klarer problemet
mvh
peda
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Online
Point: 5508 		Direkte link til dette indlæg Sendt: 25.Nov.2015 kl. 20:08
den kunne være spændende at se.....
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
peda Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109 		Direkte link til dette indlæg Sendt: 25.Nov.2015 kl. 20:36
Den er her:
Sub SletTommeRaekker()
Application.ScreenUpdating = False
    lstrow = ActiveSheet.UsedRange.Rows(UBound(ActiveSheet.UsedRange.Value)).Row
        For i = lstrow To 1 Step -1
            If IsEmpty(Range("B" & i)) Then
                Range("B" & i).EntireRow.Delete
            End If
        Next i
Application.ScreenUpdating = True
End Sub
Men det er vigtigt for mig at sige at det er Icet og ikke mig der kan det her
mvh
peda
mvh
peda
Til top
peda Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109 		Direkte link til dette indlæg Sendt: 25.Nov.2015 kl. 20:37
Nu vi er i gang kunne jeg måske lokke en kode frem der også kan slette tomme kolonner. De er nemlig også et problem.
mvh
peda
mvh
peda
Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694 		Direkte link til dette indlæg Sendt: 27.Nov.2015 kl. 12:01
hvad med :

Sub b_test()

lc = Cells(2, Columns.Count).End(xlToLeft).Column

For i = lc To 1 Step -1
    If Cells(2, i) = "" Then
    Columns(i).EntireColumn.Delete
    End If
Next

End Sub

sletter kolonne, hvis tom celle i række 2, hvis du vil have tom celle i række 1 laves" If Cells(2, i)" om til "    If Cells(1, i)"
VH rassten

Arbejde excel 2010
Privat excel 2010
Til top
peda Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109 		Direkte link til dette indlæg Sendt: 27.Nov.2015 kl. 20:27
Kære Alle
Nu har jeg fået løst alle mine problemer mht oprydning i mit ark. Mange tak til alle der har bidraget
mvh
peda
mvh
peda
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk