Het wegwerken van Spaces in cellen

Carole importeert gegevens in Excel vanuit een ander programma, en dit laat vaak extra spaties in sommige cellen. De ruimtes zijn de enige dingen in de cellen, zodat ze lijken leeg te zijn, maar zijn echt niet. Carole afgevraagd over de beste manier om zich te ontdoen van deze onnodige ruimte krijgen.

Er zijn een paar manieren die u kunt gebruiken. De eerste is om het zoeken en vervangen gebruiken mogelijkheden van Excel. Volg deze stappen:

  1. Druk op Ctrl + H om het tabblad Vervangen van de op te roepen en vervangen dialoogvenster.
  2. In de doos Wat zoeken, voert u twee ruimtes.
  3. Zorg ervoor dat het vak vervangen is leeg.
  4. Selecteer de Match Gehele celinhoud in.
  5. Klik op Alles vervangen.
  6. Herhaal stap 2 tot 5, maar deze keer gebruik slechts één ruimte in stap 2.
  7. Sluit het venster Zoeken en vervangen dialoogvenster.

Een andere optie is om de Trim functie te gebruiken is. Deze aanpak is handig als de cellen die u wilt wijzigen zijn allemaal in een bepaald gebied van het werkblad, zoals een enkele kolom. Bijvoorbeeld, als je wilt om zich te ontdoen van de ruimtes van de cellen in kolom D, kan u gebruik maken van de volgende formule:

= Trim (D1)

De Trim functie geeft de inhoud van cel D1 zonder spaties voor of na. Je zou dan kopieert u de resultaten van deze formule en gebruik Plakken speciaal om de waarden weer in welke cellen die u wenst te plakken.

Natuurlijk, als je veel van de werkbladen die je nodig hebt om te verwerken, of als u regelmatig krijgt werkboeken dat de extra spaties in cellen bevatten, een betere manier zou zijn om een ​​macro die zou kunnen ontdoen van de ruimtes te creëren. Misschien is de snelste manier zou zijn om alle cellen in het werkblad te onderzoeken en te ontdoen van alle extra spaties:

Sub CleanSheet1 ()
Voor elke cel in ActiveSheet.UsedRange
cell.Value = Trim (cel)
Volgende cel
End Sub

De macro stappen door elke cel en maakt gebruik van de Trim-functie om zich te ontdoen van alle spaties voor of na. Dit werkt op alle cellen, maar kan ongewenste resultaten opleveren, afhankelijk van de kenmerken van de gegevens. Als u cellen die zijn voorloopspaties-en je wilt die ruimten, dan zul je nodig hebt om een ​​andere macro gebruiken. Deze versie zal meer bevredigende resultaten geven:

Sub CleanSheet2 ()
Dim rCell als Waaier
Dim rText als Waaier

Stel rText = Cells.SpecialCells (_
xlCellTypeConstants, _
xlTextValues)
Voor Elke rCell In rText
Als Trim (rCell.Value) = "" Dan
rCell.ClearContents
End If
Volgende
Stel rText = Nothing
Stel rCell = Nothing
End Sub

Het controleert alleen die cellen met constanten (die alle tekst in het werkblad bevat) en vervolgens controleert of het gebruik van de Trim-functie zou resulteren in een lege cel. Als dat zo is, dan is de cel wordt gewist. Als de Trimfunctie niet resulteert in een lege cel, dan geen wijzigingen aangebracht in de cel.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (2883) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van Excel (Excel 2007 en later) vindt u hier: Getting Rid van Spaces in cellen.