Bli kvitt tomme rader etter Importere

Det er mange ganger når Tom har et regneark importert fra et annet program i Excel slik at han kan arbeide med dataene. Import fungerer fint, men importen legger masse (dusinvis og noen ganger hundrevis) av ekstra rader som ikke har noen data i dem. Etter importen Tom har til å slette disse ekstra rader manuelt slik at han kan bruke resten av dataene. Tom lurer på om det er en enkel måte å bli kvitt disse tomme rader.

Det finnes en rekke måter du kan nærme seg dette problemet. Den enkleste måten kan være å bare sortere de importerte data ved kolonnen av ditt valg. Alle radene som inneholder ingenting i den kolonnen ende opp enten på slutten eller begynnelsen av dataene (avhengig av om du sortere i stigende eller synkende rekkefølge), og du kan enkelt slette de radene.

Selvfølgelig, når du gjør en slags på denne måten kan du ende opp med dine data ut av den opprinnelige, importert rekkefølge. Hvis du trenger dine data for å være i den opprinnelige bestillingen-men med de tomme radene fjernet-bare sette inn en kolonne til venstre eller høyre for dine data, fyll den med sekvensielle tall, utføre sorter etter noen kolonne bortsett fra at ekstra kolonne, og deretter slette radene som er blank (med bare noe i kolonne nummereringen). Du kan deretter sortere en gang basert på kolonnen nummereringen og dataene vil være tilbake i sin opprinnelige rekkefølge.

En annen tilnærming er å følge disse trinnene:

1. Velge en hel kolonne.
2. Trykk F5. Excel viser Gå til dialogboksen.
3. Klikk Special. Excel viser Gå til Special dialogboksen.
4. Velg Blanks og klikk deretter på OK. Excel velger bare de cellene i kolonnen som er tomme.
5. Velg Slett på Rediger-menyen. Excel viser Slett dialogboksen.
6. Velg Hele Row og klikk deretter på OK.

Hvis du foretrekker å bruke en makro for å bli kvitt den tomme rader, kan du bruke noe som ligner på følgende:

Sub DeleteEmptyRows ()
Dim LastRow Som Long
Dim J Som Long

LastRow = ActiveSheet.UsedRange.Rows.Count + _
ActiveSheet.UsedRange.Rows (1) .Row - 1
Application.ScreenUpdating = False
For J = LastRow Til en Step -1
If Application.WorksheetFunction.CountA (Rader (J)) = 0 Then
Rader (J) .Delete
End If
Neste J
Application.ScreenUpdating = True
End Sub

Hvorfor skulle du ønske å bruke en makro? Fordi du må kanskje slette tomme rader uke etter uke. Bare sette makroen i Personlig arbeidsbok og du kan deretter få tilgang til det når du trenger.

Ytterligere informasjon om dette emnet kan bli funnet på disse sidene:

http://www.cpearson.com/Excel/deleting.htm#DeleteBlankRows
http://dmcritchie.mvps.org/excel/lastcell.htm

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (7986) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Bli kvitt tomme rader etter Importerer.