excel vba select second to last character in a cell

问题

I thought this would be simple but can't find the solution anywhere! I am writing a macro to insert a red tick (or down arrow) after the existing text in a cell.

 ActiveCell.FormulaR1C1 = ActiveCell & " P "

The P needs to be formatted bold, red and Wingdings 2. It needs a space after it in case text is added at the end in the future.

No problem if it is before the text:

With ActiveCell.Characters(Start:=2, length:=1).Font

How to select it when it is the second to last character in the cell please?

(Or any other way to achieve this?)

Thanks!

回答1:

Try this:

With ActiveCell.Characters(ActiveCell.Characters.count - 1, 1).Font
  .name = "Wingdings 2"
  .Bold = True
End With

来源：https://stackoverflow.com/questions/45256928/excel-vba-select-second-to-last-character-in-a-cell