replace last character in string

[ernie]

How can i replace last character in a string?

 

[Mike H]

Maybe this

myString = Range("A1").Value
NewEnd = "W"
myString = Left(myString, Len(myString) - 1) & NewEnd
Range("A1").Value=myString

Mike

 

[Rick Rothstein]

This is one way...

StrVariable = Left(StrVariable, Len(StrVariable) - 1) & YourNewCharacter

 

[RonaldoOneNil]

To replace last character in string called strTemp with a "G" use this

strTemp = Left(strTemp, Len(strTemp) - 1) & "G"

 

[Rick Rothstein]

If your text is in a simple variable, then you can also do it this way...

Mid(StrVariable, Len(StrVariable), 1) = YourNewCharacter

This is more efficient than using the concatenation method I posted earlier,
but it requires your text to be in a simple variable (not a Range or other
text holding object) in order to work.

 

[Rick Rothstein]

And just to "have fun" (in other words, do not actually use what
follows<g>), here is a method that works as long as your text is in not a
Unicode font (that is, it only uses ASCII/ANSI character codes of 32 to
255)...

Temp = Split(StrConv(StrVariable, vbUnicode), Chr(0))
Temp(UBound(Temp) - 1) = YourNewCharacter
StrVariable = StrConv(Join(Temp, Chr(0)), vbFromUnicode)

where you would Dim the Temp variable as either a Variant or a dynamic
String array.