■

単純に"H24.1.1"を西暦に変換したいだけなのにFormatではうまくいかず。
Excelの書式設定では"日付"を選ぶと"和暦"が出てくるのでなんとかなりそうなものだが・・・
仕方ないんで、Hを含む場合専用のFunctionを用意した。

Public Function FormatH(str As String) As String

    Dim wk As String

    

    wk = Replace(str, "h", "平成")

    wk = Replace(wk, ".", "年", 1, 1)

    wk = Replace(wk, ".", "月", 1, 1)

    wk = wk & "日"

    FormatH = wk

End Function

---