Carole imports information into Excel from a different program, and this often leaves extra spaces in some cells. The spaces are the only things in the cells, so they appear to be empty but really aren't. Carole wondered about the best way to get rid of these unnecessary spaces.
There are a couple of approaches you can use. The first is to use the Find and Replace capabilities of Excel. Follow these steps:
Another option is to use the Trim worksheet function. This approach is handy if the cells you want to modify are all in a particular area of the worksheet, such as a single column. For instance, if you want to get rid of the spaces from the cells in column D, you could use the following formula:
=Trim(D1)
The Trim function returns the contents of cell D1 without any leading or trailing spaces. You could then copy the results of this formula and use Paste Special to paste the values back into whatever cells you desire.
Of course, if you have lots of worksheets you need to process, or if you routinely get workbooks that contain the extra spaces in cells, a better way would be to create a macro that could get rid of the spaces. Perhaps the fastest way would be to examine all the cells in the worksheet and get rid of any extra spaces:
Sub CleanSheet1() For Each cell In ActiveSheet.UsedRange cell.Value = Trim(cell) Next cell End Sub
The macro steps through each cell and uses the Trim function to get rid of any leading or trailing spaces. This works on all the cells, but it may produce undesired results, depending on the characteristics of your data. If you have cells that have leading spaces—and you want those spaces—then you'll need to use a different macro. This version will give more satisfactory results:
Sub CleanSheet2() Dim rCell As Range Dim rText As Range Set rText = Cells.SpecialCells( _ xlCellTypeConstants, _ xlTextValues) For Each rCell In rText If Trim(rCell.Value) = "" Then rCell.ClearContents End If Next Set rText = Nothing Set rCell = Nothing End Sub
It only checks those cells containing constants (which includes all text in the worksheet) and then checks to see if using the Trim function would result in an empty cell. If so, then the cell is cleared. If the Trim function wouldn't result in an empty cell, then no change is made to the cell.
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (12471) applies to Microsoft Excel 2007, 2010, 2013, and 2016. You can find a version of this tip for the older menu interface of Excel here: Getting Rid of Spaces in Cells.
Save Time and Supercharge Excel! Automate virtually any routine task and save yourself hours, days, maybe even weeks. Then, learn how to make Excel do things you thought were simply impossible! Mastering advanced Excel macros has never been easier. Check out Excel 2010 VBA and Macros today!
Excel includes several different methods of editing information in your cells. If you want to edit multiple cells all at ...
Discover MoreExcel includes a handy shortcut for entering data that is similar to whatever you entered in the cell above your entry ...
Discover MoreChanging the capitalization of text is, believe it or not, a common task in Excel. Common or not, it can be frustrating ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
2021-08-12 09:50:32
J. Woolley
@JD Murphy
See Excel's TRIM function.
2021-08-12 04:20:43
Peter Atherton
Amy
VBA has the functions LTrim, RTri, and Trim. You want the RTrim
2021-08-11 11:17:47
JD Murphy
Replacing double spaces with single spaces: can this be done while retaining formatting?
2021-08-11 10:17:32
Amy Heidner
I need to get rid of trailing spaces, but not leading ones, in "non-blank" cells. How would I modify the CleanSheet macro to do this?
2017-07-26 08:32:26
Peter M
Spot on Alex!
I use the CellView addin from Chip Pearson (www.cpearson.com/excel/cellview.htm) to see the ascii code.
I have several macros either Trimming data or replacing spaces all of which I ultimately changed to incorporate CHR(160) as a space to avoid the hassle of things not working properly when CHR(160) is encountered.
I think there is a good case for the TRIM function automatically assuming CHR(160) is a space and processing it accordingly.
2017-07-22 09:04:36
Alex B
One issue I have had with the VBA Trim function is that unlike Excel's trim function it does not convert multiple spaces between words to a single space. This creates an issue if you then want to use the split function ie = split (string," "). In this you will want clean up your data with Application.WorksheetFunction.Trim(string) before applying your split.
Got a version of Excel that uses the ribbon interface (Excel 2007 or later)? This site is for you! If you use an earlier version of Excel, visit our ExcelTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2022 Sharon Parq Associates, Inc.
Comments