Bli kvitt Spaces i Cells

September 1  by Eliza

Carole importerer informasjon i Excel fra et annet program, og dette ofte etterlater ekstra mellomrom i noen celler. Mellomrommene er de eneste ting i cellene, slik at de ser ut til å være tom, men egentlig er det ikke. Carole lurte på om den beste måten å bli kvitt disse unødvendige mellomrom.

Det er et par av tilnærminger du kan bruke. Den første er å bruke Finn og erstatt mulighetene i Excel. Følg denne fremgangsmåten:

  1. Trykk Ctrl + H for å vise kategorien Erstatt i Finn og erstatt dialogboksen.
  2. I boksen Finn, angi to mellomrom.
  3. Kontroller at Erstatt med boksen er tom.
  4. Velg kampen Hele celleinnhold i boksen.
  5. Klikk på Erstatt alle.
  6. Gjenta trinn 2 til 5, men denne gangen bruk bare én plass i trinn 2.
  7. Lukk Søk og erstatt dialogboksen.

Et annet alternativ er å bruke Trim regnearkfunksjonen. Denne tilnærmingen er nyttig hvis de cellene du vil endre er alle i et bestemt område av regnearket, for eksempel en enkelt kolonne. For eksempel, hvis du ønsker å kvitte seg med mellomrom fra cellene i kolonne D, kan du bruke følgende formel:

= Trim (D1)

Trim-funksjonen returnerer innholdet i celle D1 uten ledende eller etterfølgende mellomrom. Du kan deretter kopiere resultatene av denne formelen og bruke Lim inn for å lime inn verdiene tilbake til hva cellene du ønsker.

Selvfølgelig, hvis du har massevis av regneark du trenger for å behandle, eller hvis du rutinemessig få arbeidsbøker som inneholder ekstra mellomrom i celler, en bedre måte ville være å lage en makro som kunne kvitte seg med mellomrom. Kanskje den raskeste måten ville være å undersøke alle cellene i regnearket og kvitte seg med noen ekstra mellomrom:

Sub CleanSheet1 ()
For Hver celle I ActiveSheet.UsedRange
cell.Value = Trim (celle)
Neste celle
End Sub

Makro skritt gjennom hver celle og bruker Trim funksjon for å bli kvitt eventuelle ledende eller etterfølgende mellomrom. Dette fungerer på alle cellene, men det kan gi uønskede resultater, avhengig av egenskapene til dine data. Hvis du har celler som har ledende mellomrom-og vil at disse områder-så du må bruke en annen makro. Denne versjonen vil gi mer tilfredsstillende resultater:

Sub CleanSheet2 ()
Dim Rceii Som Range
Dim rText Som Range

Satt rText = Cells.SpecialCells (_
xlCellTypeConstants, _
xlTextValues)
For Hver Rceii I rText
Hvis Trim (rCell.Value) = "" Then
rCell.ClearContents
End If
Neste
Satt rText = Nothing
Satt Rceii = Nothing
End Sub

Den sjekker bare de cellene som inneholder konstanter (som inkluderer all tekst i regnearket) og deretter sjekker for å se om du bruker funksjonen Klipp ville resultere i en tom celle. Hvis ja, så cellen er fjernet. Hvis Trim funksjonen ikke ville resultere i en tom celle, så ingen endring er gjort til cellen.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2883) 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 Spaces i Cells.