| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete space in Text
Hello, does anyone know a macro that could remove the blanks or Space in cell C11 to C2000 (where there is text) Ex. 20 15 10 Thanks in advance. -- herve ------------------------------------------------------------------------ herve's Profile: http://www.excelforum.com/member.php...o&userid=27314 View this thread: http://www.excelforum.com/showthread...hreadid=473046 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delete space in Text
Good evening herve This cheeky litle macro should do the trick. Sub RemoveSpaces() For Each UsrCell In Selection UsrCell.Value = Application.WorksheetFunction.Substitute(UsrCell.V alue, " ", "") Next UsrCell End Sub Highlight the range you want it to effect before running it. That way, it will work on any range you later want to specify, not just C11:C2000. HTH DominicB -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=473046 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delete space in Text
hello Domincd thanks for the reply but could you tell me how to do it only for th cell C11 to C500 without having to do a selection? Thank -- herv ----------------------------------------------------------------------- herve's Profile: http://www.excelforum.com/member.php...fo&userid=2731 View this thread: http://www.excelforum.com/showthread.php?threadid=47304 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delete space in Text
Hi herve This will do the trick: Sub RemoveSpaces() Range("C11:C500").Select For Each UsrCell In Selection UsrCell.Value = Application.WorksheetFunction.Substitute(UsrCell.V alue, " ", "") Next UsrCell End Sub HTH DominicB -- dominicb ------------------------------------------------------------------------ dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932 View this thread: http://www.excelforum.com/showthread...hreadid=473046 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Delete space in Text
How about selecting C11:C2000 and then
edit|Replace what: (spacebar) with: (leave blank) replace all If you need it as a macro, you can record it when you do it manually. herve wrote: Hello, does anyone know a macro that could remove the blanks or Space in cell C11 to C2000 (where there is text) Ex. 20 15 10 Thanks in advance. -- herve ------------------------------------------------------------------------ herve's Profile: http://www.excelforum.com/member.php...o&userid=27314 View this thread: http://www.excelforum.com/showthread...hreadid=473046 -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Delete space after word | Excel Discussion (Misc queries) | |||
| How do I delete a space at the end of an amount or text | Excel Worksheet Functions | |||
| Delete space | Excel Discussion (Misc queries) | |||
| Is there a way to use the space bar to delete? | Excel Worksheet Functions | |||
| Is there a way to use the space bar to delete? | Excel Worksheet Functions | |||
![herve[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
