マクロでセルの右から２番目の文字を取得する方法を教えてください

よろしくお願いします
いつも大変お世話になっております
エクセルは２０１３です

マクロでセルの右から２番目の文字を取得する方法を教えてください
例えば　セルＡ１に
機番(P3
とか
管理番号(Ｌ3
などど書いてある場合に、右から２番目の文字(PやL)を取得するには、マクロでどう書けば良いでしょうか？

No.2 ベストアンサー 回答者： Hypnomatic 回答日時： 2016/03/23 23:43

あ、早まった。

右から２文字ではなくて、２番目なんですね。
そしたら、右から２文字とって、その後、左から１文字切り取ればいいので、Left(Right(Cells(1, 1), 2),1)になります。

この回答へのお礼

Hypnomaticさん、こんばんは
前にもお世話になりました

深夜に教えていただいて助かりました
ずっと”右から二番目”で検索してたのですが見つからなくて、質問させていただきました

＞右から２文字とって、その後、左から１文字切り取ればいい
RightもLeftも知っていたのに、この発想が私には思いつきませんでした
まだまだ修行が足りません

深夜に親切に教えていただいてありがとうございました

お礼日時：2016/03/23 23:51

No.1 回答者： Hypnomatic 回答日時： 2016/03/23 23:41

セルB1に、セルA1の文字列の右から２番めを切り取った結果を返す

Sub sample()
Cells(1, 2) = Right(Cells(1, 1), 2)
End Sub

蛇足
左からの場合は
Left(指定セル,切り取り文字数)

n文字目からm文字切り取る場合は
Mid(指定セル,n,m)

この回答へのお礼

ありがとうございます
＞n文字目からm文字切り取る場合は
＞Mid(指定セル,n,m)
またひとつ進歩しました

お礼日時：2016/03/23 23:53