Removing last character in a cell, with varying word lengths

[DataQuestioner]

I need to remove the last character in a cell, which is always a "?" - the single words in each cell will have varying lengths, and can commence with a upper or lower case letter, and will contain any of the 26 letters of the alphabet, which could also include a hyphen, e.g.

"day-dream?" should become "day-dream"
"really?" should become "really"
"Unbelievably?" should become "Unbelievably".

I've tried experimenting with "IF" "LEFT" "RIGHT" and "MID" functions, but I haven't got my head around their proper usage yet!

Please help if you can.

 

[Rick Rothstein]

If you are up for a macro solution like hiker95 posted, then here is another one for you to consider...

Sub RemoveTrailingQuestionMarks()
  Dim Addr As String
  Addr = "A1:A" & Cells(Rows.Count, "A").End(xlUp).Row
  Range(Addr) = Evaluate(Replace("IF(RIGHT(TRIM(@))=""?"",LEFT(TRIM(@),LEN(TRIM(@))-1),@)", "@", Addr))
End Sub

 

[DataQuestioner]

Just been revisiting this thread after almost a year.

Thanks to both hiker95 + Rick for their macros.

The macro solution is much quicker than using the Find+Replace function.

 

[hiker95]

DataQuestioner,

Thanks for the feedback.

You are very welcome. Glad we could help.

And, come back anytime.