B3セルに29又は129と入力した時、 D3セルに30又は130と表示させたい。

以前、回答頂いた方法で大分助かっているのですが、エラーが出る時があり困っております、今回も、宜しく、お願い致します。
1行目と2行目は、上手く動作していて助かっています。

　　AB C D 理想表示1 理想表示2
1 横田 12R11 ～　12R12 3桁まで+1加算でOK 1～999まで
2 山田 　16L2R1 ～16L2R23桁まで+1加算でOK 1～999
3 田中 　29 ～　21030 　　　　　　　理想表示1に同じ
3 田中 129 ～ 1210 130　　　　　　　　理想表示1に同じ
4 田中 13D ～ #VALUE! 14 空白でも可。

No.2 ベストアンサー 回答者： CoalTar 回答日時： 2009/10/01 15:13

D2セル

=IF(ISERR(RIGHT(B2,1)*0),"",
LEFT(B2,MAX(0,LEN(B2)-COUNT(RIGHT(B2,{1,2,3})*0)))
&RIGHT(B2,COUNT(RIGHT(B2,{1,2,3})*0))+1)

13Dを14にしたい場合は、(空白時のエラー処理を兼ねなくして)前回の回答も使い、
=IF(ISERR(RIGHT(B2,1)*0),LEFT(B2,COUNT(LEFT(B2,{1,2,3})*0))+1,
LEFT(B2,MAX(0,LEN(B2)-COUNT(RIGHT(B2,{1,2,3})*0)))
&RIGHT(B2,COUNT(RIGHT(B2,{1,2,3})*0))+1)
必要なら空白時のエラー処理を加えてください

加算するための値が999だと加算後は1000になりますので注意してください。その場合の規則がわからないので対処していません。

また、規則性のわかるように説明できるようになりましょう。
数式はその規則性にしたがって作るだけですから。

この回答へのお礼

CoalTar さまへ
早速のご回答、有難う御座いました。

ご回答の数式を入れましたところ、希望通りの値が出て感激しております。
特に、13D=空欄が最高です。
もうひとつ追加ですが、13-1とか13-2の-も13Dと同じように空欄での表示方法も可能でしょうか?
一度に、質問すれば良かったのですが、可能でしたら、ご回答をお願い致します。

お礼日時：2009/10/05 20:49

No.3 回答者： CoalTar 回答日時： 2009/10/06 23:24

＞もうひとつ追加ですが、13-1とか13-2の-も13Dと同じように空欄での表示方法

もし、右から2番目の文字が"-"だったら、""にすれば良い。と言う条件を一番上に重ねればよいです。

この回答への補足

13Dも13-1とかは、めったに無い事だったので使ってみて、空欄の表示方法が一番良い事と解りました。

何度も、申し訳ありませんが13Dも13-1とかも1～999までの数値以外は空欄になる方法をお願い致します。

補足日時：2009/10/27 23:22

No.1 回答者： CoalTar 回答日時： 2009/09/27 08:04

補足要求です

　 　 A　 　 B　 　 　 C　 　 D　 　 　 　 　 E　 　 　 　 　 　 　 　 　 F
1　 　 　 　 　 　 　 　 　 　 　 　 　 　 　　 理想表示1　 　 　 　 　 理想表示2
2 　 横田 　 12R11 　 ～ 　 12R12 　 　 3桁まで+1加算でOK 　 1～999まで
3 　 山田 　 16L2R1 　 ～ 　 16L2R2 　 3桁まで+1加算でOK 　 1～999
4 　 田中 　 29　 　 　 ～ 　 210 　 30 　 理想表示1に同じ
5 　 田中 　 129　 　 ～ 　 1210 　 130 　 理想表示1に同じ
6 　 田中 　 13D　 　 ～ 　 #VALUE! 　 14 　 空白でも可。
7 　 　 　 　 　 　
8 　 　 　 12R11 　 　 　 13 　
9 　 　 　 16L2R1 　 　 　 17 　
10 　 　 　 29 　 　 　 30 　
11 　 　 　 129 　 　 　 130 　
12 　 　 　 13D 　 　 　 14 　
13 　 　 　 999 　 　 　 1000 　
14 　 　 　 998 　 　 　 999 　

表が崩れてしまい、列がどのようになっているかわかりません
上記のようになっているのでしょうか？
よって、結果がどのような結果を欲しいかもわかりません
肝心の以前の回答の方法が示されていないです

上記8行目以降は推測です
=LEFT(B8,COUNT(LEFT(B8,{1,2,3})*1))+1

# 画像が添付できないみたい

この回答への補足

エクセル画像を添付仕方が解らず申し訳ありません。
CoalTar様の1～6行までです。
D2には、前回の質問で回答頂きました。
=IF(B2="","",LEFT(B2,LEN(B2)-1)&RIGHT(B2,1)+1)
と入力済です。

補足日時：2009/09/30 22:51