Convert Alpha characters back to numeric

**CNE5x** · 08-13-2013, 10:56 PM

Have a piece of code that transforms leading character to numeric
Now need a piece of code to revert the act so that the leading character (the alpha is converted back to numeric - numbers are left alone)
ie (A=0, B=1, C=2, D=3, E=4, F=5, etc)

Dim lngRowEnd As Long
Columns("B").Insert
lngRowEnd = Range("B65536").End(xlUp).Row
Range("B1").Value = UserId

Dim ce As Range, lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row
Columns("B:B").Select
Range("B1").Select
ActiveCell.FormulaR1C1 = "UserID"
Range("B2").Select

For Each ce In Range("A2:A" & lastrow)
ce.Offset(0, 1).NumberFormat = "@"
ce.Offset(0, 1).Value = Chr(Asc(Left(ce.Value, 1)) - 17) & Mid(ce.Value, 2, Len(ce.Value))
Next ce
End Sub

Any assistance greatly appreciated
Thanks

**protonLeah** · 08-13-2013, 11:46 PM

Please Login or Register  to view this content.

For the future:

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Manage Attachment Instructions
To attach a Workbook
(please do not post pictures of worksheets)
Click Advanced (next to quick post),
Scroll down until you see "Manage Attachments",
Click that then select "add files" (top right corner).
Click "Select Files" find your file, click "open" click "upload"
Once the upload is completed the file name will appear below the input boxes in this window.
Click "Done" at bottom right to close the Attachment Manager.
Click "Submit Reply"