VBA remove extra spaces

[neveu]

hello,

i have in a range several numbers that contain extra spaces and therefore these are recognized as text.

this is how the numbers would look : " 123.234.567"

could you please help me how to remove the extraspaces and the points (as otherwise this will also be recognized as text)?

thank you

 

[Trevor G]

Use the Trim formula, your example would return it as text due to multiple full stops (.)

 

[kpark91]

=TRIM(A1)

where A1 is your number'

 

[JamesW]

Hi,

Try:

=SUBSTITUTE(A1,".","")

Using the above you don't need to TRIM and you get rid of the points.

 

[MrKowz]

Try:

<b>Excel 2007</b><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><colgroup><col width="25px" style="background-color: #E0E0F0" /><col /><col /></colgroup><thead><tr style=" background-color: #E0E0F0;text-align: center;color: #161120"><th></th><th>A</th><th>B</th></tr></thead><tbody><tr ><td style="color: #161120;text-align: center;">1</td><td style=";">123.234.567</td><td style="text-align: right;;">123234567</td></tr></tbody></table><table cellpadding="2.5px" rules="all" style=";background-color: #FFFFFF;border: 1px solid;border-collapse: collapse; border-color: #A6AAB6"><thead><tr style="background-color: #E0E0F0;text-align: center;color: #161120"><th><b>Sheet1</b></th></tr></td></thead></table><br /><br /><table width="85%" cellpadding="2.5px" rules="all" style=";border: 2px solid black;border-collapse:collapse;padding: 0.4em;background-color: #FFFFFF" ><tr><td style="padding:6px" ><b>Worksheet Formulas</b><table cellpadding="2.5px" width="100%" rules="all" style="border: 1px solid;text-align:center;background-color: #FFFFFF;border-collapse: collapse; border-color: #A6AAB6"><thead><tr style=" background-color: #E0E0F0;color: #161120"><th width="10px">Cell</th><th style="text-align:left;padding-left:5px;">Formula</th></tr></thead><tbody><tr><th width="10px" style=" background-color: #E0E0F0;color: #161120">B1</th><td style="text-align:left">=VALUE(<font color="Blue">SUBSTITUTE(<font color="Red">SUBSTITUTE(<font color="Green">A1," ",""</font>),".",""</font>)</font>)</td></tr></tbody></table></td></tr></table><br />

 

[neveu]

thank you,
I already have the Excel formula, but would need the VBA code so i could extend the formula to be applied only for the cells in my range where i have this situation; and in this case to copy the correct formated number ontop on the old value

 

[Trevor G]

Then look to record a macro to apply your formula and adapt the code accordingly.

 

[Jameo]

If there are only single spaces at the beginning of the numbers you could use text to columns under the data menu to split the numbers out.

 

[MrKowz]

Try:

Public Sub ReplaceChars()
Dim rng As Range, _
    LR  As Long
 
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With
 
LR = Range("A" & Rows.Count).End(xlUp).Row
For Each rng In Range("A1:A" & LR)
    rng.Value = Replace(Replace(rng.Value, " ", ""), ".", "")
Next rng
 
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
End With
End Sub

 

[neveu]

thank you very much
it works great