横から失礼、ワークセル多いけどB2に結果が出るif関数の中身追加すればいくらでもいける（ただし旧暦は知らん）
A1=西暦年
B1=月
C1=日
A2=A1+1000＆"/"＆B1＆"/"＆C1
A3=YEAR(A2)
A4=MONTH(A2)
A5=DAY(A2)
B2=IF(B3>"29890107","平成"＆(A3-2988),"昭和"＆(A3-2925))＆"年"＆A4＆"月"＆A5＆"日"
B3=A3＆B4＆B5
B4=RIGHT("0"＆A4,2)
B5=RIGHT("0"＆A5,2)