Forfatter |
Emne Søg Emne funktioner
|
peda
Sølv bruger
Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109
|
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
|
|
|
|
|
Kasper
Sølv bruger
Medlem: 10.Jun.2015
Status: Offline
Point: 340
|
Sendt: 16.Nov.2015 kl. 12:36 |
Er det altid de samme rækker, der er tomme eller varierer det?
|
|
peda
Sølv bruger
Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109
|
Sendt: 16.Nov.2015 kl. 13:10 |
Det varierer desværre
|
mvh peda
|
|
Kasper
Sølv bruger
Medlem: 10.Jun.2015
Status: Offline
Point: 340
|
Sendt: 16.Nov.2015 kl. 18:56 |
Kunne do prøve lige at oploade et eksempel på et ark?
|
|
peda
Sølv bruger
Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109
|
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.xlsmvh peda
|
mvh peda
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5508
|
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
|
|
rassten
Guld bruger
Medlem: 26.Okt.2010
Status: Offline
Point: 694
|
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
|
|
icet
Bronze bruger
Medlem: 08.Nov.2013
Status: Offline
Point: 95
|
Sendt: 25.Nov.2015 kl. 10:12 |
Hej jeg havde en kode stump liggende som ser ud til at kunne gøre tricket ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 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 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
|
peda
Sølv bruger
Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109
|
Sendt: 25.Nov.2015 kl. 20:04 |
Tak for svaret. Jeg har fået en stump kode der klarer problemet
|
mvh peda
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5508
|
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
|
|
peda
Sølv bruger
Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109
|
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
|
|
peda
Sølv bruger
Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109
|
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
|
|
rassten
Guld bruger
Medlem: 26.Okt.2010
Status: Offline
Point: 694
|
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
|
|
peda
Sølv bruger
Medlem: 30.Nov.2010
Land: Danmark
Status: Offline
Point: 109
|
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
|
|