和暦を西暦に変換する方法

質問

Excel2000を使っています。
和暦でS50やH1、T10などと入っているのを
西暦に直す方法はないでしょうか。

例えば、H17と入っていたら、2005と変換するようにしたいのです。
日付は入っていません。
件数が多いので、一括変換できるような方法をご存知でしたら、教えてください。
宜しくお願いします。

回答No.2

maruru01 · ベストアンサー

こんにちは。maruru01です。

No.1の方の回答と基本的には同じですが。
TEXT関数の第1引数に指定する場合には、DATEVALUE関数で日付のシリアル値に変換する必要はないです。
あと、TEXTで年だけの表示にすれば、LEFTで取り出す必要がなくなります。

=TEXT(A1&"/4/1","yyyy")

ちなみに、元号の変わり目を考慮して月日を「4/1」で補いましたが、「1/1」でも上手くいくようです。

お礼

おかげさまでできました。
どうもありがとうございました！

回答No.1

neKo_deux

H17に"/1/1"の文字列をくっつけて"H17/1/1"に。
DATEVALUE関数でシリアル値に。
TEXT関数で"2005/01/01"の形式に。
LEFT関数で左の４文字を取り出し。
を行います。

A1に"H17"があるとして、
=LEFT(TEXT(DATEVALUE(A1&"/1/1"),"YYYY/MM/DD"),4)

お礼

おかげさまでできました。
どうもありがとうございました！