I need to add spaces to the beginning of my texts which are numbers
example I have various account numbers as texts from 4 to 7 digits. I
need to make all account numbers 10 digits long with spaces at the beginning. Another example.... _ _ _ 1234567. |
I need to add spaces to the beginning of my texts which are numbers
Sub fill_spaces_left()
Dim s As String Dim cell As Range For Each cell In Selection With cell .NumberFormat = "@" .HorizontalAlignment = xlRight s = .Value If Len(s) < 10 Then .Value = Space$(10 - Len(s)) & s End If End With Next End Sub Gord On Tue, 24 Apr 2012 10:46:10 -0700 (PDT), Demetria Jones wrote: example I have various account numbers as texts from 4 to 7 digits. I need to make all account numbers 10 digits long with spaces at the beginning. Another example.... _ _ _ 1234567. |
All times are GMT +1. The time now is 04:57 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com