Delete last character if letter

**dip11** · 07-26-2012, 07:37 AM

Hi,

I have a number of different codes which can be anywhere from 6 to 11 characters long and either end with a number or a letter.

What I want a code to do is to remove the last character if it is a letter only.

How would I do this?

**Bob Phillips** · 07-26-2012, 07:41 AM

You could try

=LEFT(A2,LEN(A2)-1)&IF(ISNUMBER(--RIGHT(A2)),RIGHT(A2),"")

**tom1977** · 07-26-2012, 07:54 AM

Hi in VBA try this:

Sub aa()
Dim c As Range
Dim y
For Each c In Selection
If Not IsNumeric(Right(c, 1)) Then
c = Left(c, Len(c) - 1)
End If
Next
End Sub

Delete last character if letter

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Delete last character if letter

Re: Delete last character if letter

Re: Delete last character if letter

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions