数式に間違いがありました。
最初に作成した数式がいかにも長すぎて、DATESTRING(B3),3,1)="0",　でいけると
早とちりしてしまっていました。
元の長い数式に戻します。ご指摘ありがとうございます。

=IF(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(DATESTRING(B3),"01年","元年"),"年0","年"),"月0","月"),3,1)="0",
REPLACE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(DATESTRING(B3),"01年","元年"),"年0","年"),"月0","月"),3,1,""),
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(DATESTRING(B3),"01年","元年"),"年0","年"),"月0","月"))

なお、そのページの下の方にあるText関数を使った方が数式は短くなっていますので、
そちらもご覧いただければ幸いです。
=TEXT(B2,"ggg")&IF(TEXT(B2,"e")="1","元年",TEXT(B2,"e年"))&TEXT(B2,"m月d日")
以上です。